(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    172847,       3978]
NotebookOptionsPosition[    167491,       3907]
NotebookOutlinePosition[    167839,       3922]
CellTagsIndexPosition[    167796,       3919]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Import the data files into lists", "Text",
 CellChangeTimes->{{3.704027199169455*^9, 
  3.7040272053910923`*^9}},ExpressionUUID->"b9e7258f-19a2-44f9-a0cf-\
28a9088947ab"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list0503B", "=", 
   RowBox[{"Import", "[", "\"\<0503B_trans.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list0518E", "=", 
   RowBox[{"Import", "[", "\"\<0518E_trans.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list0531D", "=", 
   RowBox[{"Import", "[", "\"\<0531D_trans.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list0602A", "=", 
   RowBox[{"Import", "[", "\"\<0602A_trans.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"list0823F", "=", 
   RowBox[{"Import", "[", "\"\<0823F_trans.csv\>\"", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.703969247555596*^9, 3.7039693786050043`*^9}, {
  3.703969422815686*^9, 3.70396942367097*^9}, {3.7734938530276356`*^9, 
  3.773493854257916*^9}, {3.7734939192467885`*^9, 3.773493919249759*^9}, {
  3.773493959968952*^9, 3.773493959971922*^9}, {3.7734939908693886`*^9, 
  3.7734940402938356`*^9}},ExpressionUUID->"e1972ab0-66cb-4226-8342-\
c209f96966c5"],

Cell["Find the magnetic fields used", "Text",
 CellChangeTimes->{{3.704027214648234*^9, 
  3.7040272187642913`*^9}},ExpressionUUID->"a732a64e-3397-4fea-bde0-\
83618680f2c9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b0503B", "=", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"list0503B", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b0518E", "=", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"list0518E", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b0531D", "=", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"list0531D", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b0602A", "=", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"list0602A", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b0823F", "=", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"list0823F", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7039698558799157`*^9, 3.7039699283024445`*^9}, {
   3.703969989825068*^9, 3.7039700215975323`*^9}, 3.7039701752118683`*^9, {
   3.7039704586213093`*^9, 3.7039704635714407`*^9}, {3.7734938644079027`*^9, 
   3.7734938665435824`*^9}, {3.773493919052232*^9, 3.7734939190592613`*^9}, {
   3.773493959819518*^9, 3.773493959822525*^9}, {3.7734939908724337`*^9, 
   3.773494040297846*^9}},ExpressionUUID->"d047c9c0-a61a-4698-92aa-\
4454449dfbc2"],

Cell["Seperate each magnetic field into its own list", "Text",
 CellChangeTimes->{{3.704027228343438*^9, 
  3.7040272410380135`*^9}},ExpressionUUID->"0eaf5b03-1ffb-48cb-b38a-\
5921bfcaf7e7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"lineSet0503B", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"list0503B", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
         RowBox[{"b0503B", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "b0503B", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lineSet0518E", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"list0518E", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
         RowBox[{"b0518E", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "b0518E", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lineSet0531D", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"list0531D", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
         RowBox[{"b0531D", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "b0531D", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lineSet0602A", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"list0602A", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
         RowBox[{"b0602A", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "b0602A", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lineSet0823F", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{"list0823F", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", 
         RowBox[{"b0823F", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "b0823F", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7039706509475603`*^9, 3.7039707801309896`*^9}, {
  3.7039741961690784`*^9, 3.7039742034193187`*^9}, {3.773493919065302*^9, 
  3.773493919073321*^9}, {3.7734939598245306`*^9, 3.773493959831583*^9}, {
  3.773493990725004*^9, 
  3.7734940403089075`*^9}},ExpressionUUID->"de6cc09c-5367-4b47-895b-\
fe5d748ea42b"],

Cell["\<\
Find the peaks in transcunductance at each magnetic field value\
\>", "Text",
 CellChangeTimes->{{3.704027251605253*^9, 
  3.7040272642433963`*^9}},ExpressionUUID->"ee96482a-5048-4e1b-8e9b-\
705b606b95c1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"peaks0503B", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"FindPeaks", "[", 
      RowBox[{
       RowBox[{"lineSet0503B", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", ";;", ",", "1"}], "]"}], "]"}], ",", "0", ",", "0",
        ",", "0.1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "lineSet0503B", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peaks0518E", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"FindPeaks", "[", 
      RowBox[{
       RowBox[{"lineSet0518E", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", ";;", ",", "1"}], "]"}], "]"}], ",", "1", ",", "0",
        ",", "0.1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "lineSet0518E", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peaks0531D", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"FindPeaks", "[", 
      RowBox[{
       RowBox[{"lineSet0531D", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", ";;", ",", "1"}], "]"}], "]"}], ",", "4", ",", "0",
        ",", "0.1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "lineSet0531D", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peaks0602A", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"FindPeaks", "[", 
      RowBox[{
       RowBox[{"lineSet0602A", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", ";;", ",", "1"}], "]"}], "]"}], ",", "0.5", ",", 
       "0", ",", "0.1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "lineSet0602A", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peaks0823F", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"FindPeaks", "[", 
      RowBox[{
       RowBox[{"lineSet0823F", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", ";;", ",", "1"}], "]"}], "]"}], ",", "4", ",", "0",
        ",", "0.1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "lineSet0823F", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQvS9R9MnhGa8dfba5fQTRy2a8/w6i+5j6foLoSXM0
Eo8C6SmPT2eA6OY0+xPHgHTWJvWTIFrLTfQViF5SKf0aRK/ax/UPRNtKBYHp
f17psceB9OPEJWB6WeyCiSBalP0ymG69KDELRBfH/AXTJYm7FoNots0lS0B0
W6b3BhDNtbXzIIgOiN11DkTXt+8H0zzruytOAOk1G/eDaSbNaWx3gPTexwvA
dFUiIy+IDuPkB9P/DkwRBNHpBo/BtAjfUUkQPeeTiRSIDvQL0AXRnvHZYHrG
bXMrEF1zqwtM8/z/HwOiJdjYYkH0OlaDZBAtbmQGpq9cW50Ltv/MDjBd1Pgo
OE72jWPbKggtffRXBIie8w9C78m5HgOiz0lzJYNoAEPP3YI=
  "],ExpressionUUID->"5de48559-d2db-43f5-a481-010ca6fa4e27"],

Cell["\<\
Construct a (B,\[Mu]) plot of the difference between the first and second \
peaks for each magnetic field\
\>", "Text",
 CellChangeTimes->{{3.7040272709814873`*^9, 
  3.704027321027026*^9}},ExpressionUUID->"a0b11e9c-2b9f-41b9-8743-\
9c1b44702a6e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"peakData0503B", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0503B", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0503B", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0503B", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"lineSet0503B", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0503B", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}], "-", 
            RowBox[{"lineSet0503B", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0503B", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}]}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0503B", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peakData0518E", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0518E", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0518E", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0518E", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"lineSet0518E", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0518E", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}], "-", 
            RowBox[{"lineSet0518E", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0518E", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}]}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0518E", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peakData0531D", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0531D", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0531D", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0531D", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"lineSet0531D", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0531D", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}], "-", 
            RowBox[{"lineSet0531D", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0531D", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}]}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0531D", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peakData0602A", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0602A", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0602A", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0602A", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"lineSet0602A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0602A", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}], "-", 
            RowBox[{"lineSet0602A", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0602A", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}]}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0602A", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peakData0823F", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0823F", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0823F", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0823F", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"lineSet0823F", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0823F", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}], "-", 
            RowBox[{"lineSet0823F", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"peaks0823F", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", "2"}], 
              "]"}], "]"}]}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0823F", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.703972141633188*^9, 3.7039722380243993`*^9}, {
   3.703972290709459*^9, 3.703972536067715*^9}, {3.7039726033154945`*^9, 
   3.7039727112333755`*^9}, {3.70397275274874*^9, 3.7039727749728184`*^9}, 
   3.7039728687476635`*^9, {3.703973921907979*^9, 3.7039740169867077`*^9}, {
   3.7039813395293803`*^9, 3.7039813604580564`*^9}, {3.7039813927839527`*^9, 
   3.7039814363828545`*^9}, {3.7039815318526773`*^9, 3.703981543595872*^9}, {
   3.7039816946745214`*^9, 3.7039817715448465`*^9}, {3.7039818038316755`*^9, 
   3.703981822159398*^9}, {3.7039820583954954`*^9, 3.7039820692413025`*^9}, {
   3.7734939190863237`*^9, 3.773493919115401*^9}, {3.773493959846588*^9, 
   3.7734939598686466`*^9}, {3.7734939907420483`*^9, 
   3.773494040342966*^9}},ExpressionUUID->"17a7e611-d4aa-42f1-92d9-\
3b7d47e87131"],

Cell[TextData[{
 "Generate the background plots for finding g and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["B", "p"], TraditionalForm]],ExpressionUUID->
  "0a9b60e7-66c5-4b22-a826-4a85015723ce"]
}], "Text",
 CellChangeTimes->{{3.704027328367057*^9, 
  3.704027351597329*^9}},ExpressionUUID->"2753b9a5-49dd-4dc7-930e-\
9da84fce916d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pic0503B", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"peakData0503B", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<0503B\>\""}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pic0518E", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"peakData0518E", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<0518E\>\""}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pic0531D", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"peakData0531D", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<0531D\>\""}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pic0602A", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"peakData0602A", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<0602A\>\""}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pic0823F", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"peakData0823F", ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<0823F\>\""}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.70397646637752*^9, 3.70397647583162*^9}, {
  3.7039769475646753`*^9, 3.7039770400846252`*^9}, {3.7039770822637863`*^9, 
  3.7039771583099413`*^9}, {3.7039780481519575`*^9, 3.7039781131667924`*^9}, {
  3.7039781466668487`*^9, 3.7039782045928407`*^9}, {3.7039786125964746`*^9, 
  3.7039786192150693`*^9}, {3.7039815527792892`*^9, 3.70398159272748*^9}, {
  3.7039827612960024`*^9, 3.703982783570215*^9}, {3.7040259970516396`*^9, 
  3.7040259982552733`*^9}, {3.7040262422794886`*^9, 3.7040262696779747`*^9}, {
  3.704027416460822*^9, 3.7040274407681684`*^9}, {3.773493919117425*^9, 
  3.773493919121418*^9}, {3.7734939598716545`*^9, 3.7734939598786736`*^9}, {
  3.773493990779147*^9, 
  3.773494040348982*^9}},ExpressionUUID->"86dae709-7532-4e4a-962d-\
a54fa9b04070"],

Cell[TextData[{
 "This segment part is used for finding the g-factor and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["B", "p"], TraditionalForm]],ExpressionUUID->
  "00e5e682-0e58-4316-8f43-d7c651d4f1c6"],
 ". The B windows in the select statements should be adjusted to target the \
region where the lowest band is no longer paired, but before the rentrant \
pairing between the spin-reversed m=0,m=1 bands occurs."
}], "Text",
 CellChangeTimes->{{3.704026056488013*^9, 3.7040261950525265`*^9}, {
  3.7040273658717394`*^9, 
  3.7040273677224083`*^9}},ExpressionUUID->"49973259-4ba6-477a-b9d2-\
fe90a70a1ede"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{"0503", "B"}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"fit1", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0503B", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", 
             RowBox[{"-", "6.1"}]}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", 
           RowBox[{"-", "4.3"}]}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit2", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0503B", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", "3.8"}], "&"}]}], "]"}], 
         ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", "5.6"}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"g0503B", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit1", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit1", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "+", 
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}]}], ")"}], "/", "2"}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"Bp0503B", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit1", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "+", 
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit2", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ")"}], "/", "2"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx1", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit1", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "9"}], ",", "0"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit2", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"pic0503B", ",", "gfx1", ",", "gfx2"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"0518", "E"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit1", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0518E", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", 
             RowBox[{"-", "5"}]}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", 
           RowBox[{"-", "3"}]}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit2", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0518E", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", "3"}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", "4"}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"g0518E", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit1", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit1", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "+", 
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}]}], ")"}], "/", "2"}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"Bp0518E", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit1", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "+", 
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit2", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ")"}], "/", "2"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx1", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit1", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "9"}], ",", "0"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit2", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"pic0518E", ",", "gfx1", ",", "gfx2"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"0531", "D"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit1", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0531D", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", 
             RowBox[{"-", "5"}]}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", 
           RowBox[{"-", "3"}]}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit2", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0531D", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", "3"}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", "5"}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"g0531D", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit1", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit1", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "+", 
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}]}], ")"}], "/", "2"}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"Bp0531D", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit1", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "+", 
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit2", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ")"}], "/", "2"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx1", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit1", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "9"}], ",", "0"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit2", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"pic0531D", ",", "gfx1", ",", "gfx2"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"0602", "A"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit1", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0602A", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", 
             RowBox[{"-", "5"}]}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", 
           RowBox[{"-", "2"}]}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit2", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0602A", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", "3"}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", "4"}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"g0602A", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit1", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit1", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "+", 
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}]}], ")"}], "/", "2"}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"Bp0602A", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit1", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "+", 
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit2", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ")"}], "/", "2"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx1", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit1", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "9"}], ",", "0"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit2", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"pic0602A", ",", "gfx1", ",", "gfx2"}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"0823", "F"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit1", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0823F", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", 
             RowBox[{"-", "4"}]}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", 
           RowBox[{"-", "3"}]}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit2", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{"peakData0823F", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">", "3"}], "&"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "<", "4"}], "&"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "x"}], "}"}], ",", "x"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"g0823F", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit1", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"fit2", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "/.", 
         RowBox[{"x", "\[Rule]", "1"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit1", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}], "+", 
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"fit2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "/.", 
             RowBox[{"x", "\[Rule]", "1"}]}], "]"}]}], ")"}], "/", "2"}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"5.788", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"Bp0823F", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit1", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "+", 
       RowBox[{"Abs", "[", 
        RowBox[{"x", "/.", 
         RowBox[{
          RowBox[{"Solve", "[", 
           RowBox[{
            RowBox[{"fit2", "\[Equal]", "0"}], ",", "x"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ")"}], "/", "2"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx1", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit1", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "9"}], ",", "0"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfx2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fit2", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "9"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"pic0823F", ",", "gfx1", ",", "gfx2"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.703982568596786*^9, 3.703982753495287*^9}, {
   3.703982790845555*^9, 3.7039828105028143`*^9}, {3.7040112347065506`*^9, 
   3.7040114706789703`*^9}, {3.7040154665189314`*^9, 3.704015506681699*^9}, {
   3.704018488906023*^9, 3.7040186171419096`*^9}, {3.704018655386518*^9, 
   3.7040187340899553`*^9}, {3.704018765440299*^9, 3.7040188359917507`*^9}, {
   3.704018961128955*^9, 3.7040189895231066`*^9}, {3.7040190977244754`*^9, 
   3.7040191436876793`*^9}, {3.704019175932143*^9, 3.7040191785917864`*^9}, {
   3.7040192280479364`*^9, 3.704019243133115*^9}, {3.7040193295210843`*^9, 
   3.7040193297116857`*^9}, {3.7040193856283917`*^9, 3.704019388940458*^9}, {
   3.7040194195176244`*^9, 3.704019424280035*^9}, {3.704019539980611*^9, 
   3.7040195506762915`*^9}, {3.7040195997968273`*^9, 
   3.7040196219016953`*^9}, {3.7040196776766415`*^9, 
   3.7040196928064585`*^9}, {3.70401977098468*^9, 3.7040200144587984`*^9}, {
   3.7040201201456704`*^9, 3.704020154257295*^9}, {3.704021966959384*^9, 
   3.7040220196036043`*^9}, {3.7040225879983807`*^9, 3.704022632444538*^9}, {
   3.7040230628627567`*^9, 3.7040230874200397`*^9}, {3.7040232027465963`*^9, 
   3.7040232379321346`*^9}, {3.7040250152351174`*^9, 3.704025139203375*^9}, 
   3.7040260028638554`*^9, {3.7040260448326817`*^9, 3.704026047714984*^9}, {
   3.7040262004312215`*^9, 3.704026224322076*^9}, {3.7040262841342564`*^9, 
   3.7040263024235363`*^9}, {3.773493919129445*^9, 3.773493919145481*^9}, {
   3.773493959882723*^9, 3.7734939598997307`*^9}, {3.773493990789174*^9, 
   3.7734940403670626`*^9}},ExpressionUUID->"978969ba-7e4f-400a-8d0e-\
eb68e710c85e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.9566929834304135`"}], ",", "1.0616957703952343`", ",", 
   "1.009194376912824`"}], "}"}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.704130640801588*^9},ExpressionUUID->"d4db747d-ccc9-4792-a8ca-\
d294390f15d2"],

Cell[BoxData["2.7634521799896348`"], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306408035946`*^9},ExpressionUUID->"224b7dde-2048-45ea-b912-\
78dac116142d"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxdVk1IVVEQfpqpWdnTTJ+W2quwDKMnLfrVM4voB6LQTCldRJQUWRktisRN
JbQolBb90SaMdtlzZRu9p3qbRIMgUCgE0QhUoggzoiLvnW/m9u6Fx+Nj5s6d
+b45Myd64kLtqdRQKHR3/uf+87PGDuecrTjaGDOvZzc0db6KKu6YrnlR0hG1
18JDDRk7Npt941fzevb69qyR7taqrKi9AfvwkPusti1/XtY39W8yna/cgD6u
nY82XePj+WDzEX3swZ5SxVu8p9TWTfUd6aUK473+okRxlZeAjzn/Yls98qwu
PbER+RarnfNbpXbOZ5V+zytnZKXam7wCVtp6vO+FGy9Se7P3FKl9xqVrulDx
RS/BQkvw/+GmNxuxGxLdhxv3lps2j4CILSq5s3PhwTLDevh25r/Api6+uePY
u3Xg28fMb76dmmvf/rxuLfjMtzPADx+4zwr7fvLStrTRqCn1Avr4iVtud549
0O60NPUXm3Kv4Dw78O7M1qONq6HHcnurPUGunfXwMeuRa2OVj3bFBwugh49Z
jxx7vCFenZ4ogh45NuTlnwc9wvZr7N7p+GAG9Ajb8KcrS9JGU/D9ZbZr8vxJ
F/P3su19YI6/VP053hLFrOdi1Yv1y1J+Wa9FtgyY9cm04d4HtfHB9dAj0+YC
M/8Z4C8HfKdrfOZ3ocZnPtO0PuZvgfozX6mBfk0J8BGyrZWPw/HBuWqu/6+T
yLre7PP32xE+ub5fjrzP9fxUzPnPqT/nO+u0xm5bNz7n992R73E+3xypl7//
xflY0xJ1+4O/N+UMXW475PYbx/+s/hxvQuPz+2NqZ/8R536Svm8D/gPqLxMr
OZ8Bk+z/1kj/Ir5J9h8zyfVOGOkv5G+EX9RnmI8Mqd9IvuDHCJ/gT+3g1wT4
13jQR/2hn+YLfY30B/RXO/qDIpgf6B8SO/qL5H30H+3Z/bTqv/4k6Vf0L4n+
6G9KQ33of7XjfOj7OD8k5w/nS/1x/iiSfD5J+MH5JdEH55uS+c8m0QfzQe2Y
HyTzDPOFZB5h/pDML8wn9cf8IulvzDcKzD+S+Yn5qP6YnyTzF/OVAvOXZH5j
PqsemN+qJ+a72jH/SfYF9oPyj/1Bsm+wXwL6RKgueT8pxv5SjP2mGPuPZF9i
P1Jgf6o/9isF9q/6Yz8rxv4muU9gvyvG/leM+4Fi3B+ouevNORfjfqEY9w/F
uJ9QvzcvYnJ/UYz7jWLcf2j/hy99PYWVcj9SjPuT4n8+1hEI
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAxUHW+f//IcBiRvjwJEM2P+gVSy6W
/iHAdOcZeZRANj8K6r9iLP0hwISIOwEEPjY/UJKpy1j6IcCmyn4R4zg2P9vi
fJ2x9CHA6E4FMqEuNj/xgyNBY+khwG5XEnMdGjY/HcZwiMbSIcB6aCz1FfE1
P3VKCxeNpSHAlIpg+QafNT/NaVSKfkMhwEiA8QQb7TQ/qzZ/fu/nIMBH3UZz
+UY0P8Z+nDosjiDApg+CJBqkMz+J3c1MzSwgwIjz5dhs8zI/o9PBv9ujH8C0
Pg7wiU4yP4UZEJLl3h7AZDtfCtmbMT/fVUP0hh0ewHENlmdq7DA/Ru05WCdp
HcDLRpEnxkgwP/2xWGiQpRzAUGNq1acuLz/B0Tp6+O4bwKAHOyFY4y0//ucB
HPg7G8CwVtfyjJ4sP4sr8WnAeRrAxAjFyiU+Kz8lyqO5h8QZwHCJO2hT9Sk/
D5Z+tRcAGcAkbQMM5ZAoP3JYPkE/PxjAlPuWNfsyJz/idcHOZYsXwJxYsySm
7CU/osBsCFXIFsCqGCEatYokP29m20NDEhbAUKcX1VhAIz+MOXIr+kwVwPyY
X5Zg2iE/IgPuokiLFMBkNXPd7HogP8UnLRyW1hPAzEAf1BtmHj+4eZRBrBIT
wNzc+vklnxs/uCa/aMFbEsAYFuiqWQcZPzDKzh9uqBHA0KRsZ5Z8Fj/5mgaD
4+UQwJT5kzCbuhM/z8YB6FcwEMCK68yEyScRP+s/SvIp1w7AHEdRy3+7DD8p
31o001QNwBRiN6R+QQc/gTTyeXrsC8Bst0CT0CUCP3rk2RezZQrAwDEfN2U3
+T6MSki56fgIwMDSBuiev+0+j52Aek+TB8CA2xN9d/HSPjNLCZRGDwbAgI25
C84P2b7xrhixO6UEwOhI27ieh/C+T214JsIcA8A4Fj28Kaj7vsfhXp9GrgHA
aDesSQcGA78wQw84+kYAwMI4C57nHQi/c/4fUn6C/b8AriTZN6QNv7niLjsE
q/q/cHQNfxpmEb9AfN7UrJb3v9TL5QRRMRS/qu8hrrOQ9L+9zSZ/fu8Wv0fP
co62vvG/eDJWboJ+Gb9LyMg+uF/tvyXR4lC+RBy/b8rGbvup57+i0l2o0Nse
v1mA7B37EOK/VL8g+uyyIL+KQadcgPzXv08ywZmNEyK/XWZWM/VNyb+z1thz
mVwjv/7KsmS96Mi/LeaBtlZiI7+gLw+WhYPIv6b1KvkTaCO/5PjH+BW5x7+a
FH1+jnMjv2qLOb42JMa/gFIhiYOKI792sBxJePrCv07OaZ5tuCO/H/XFvfZN
ub/pxfrIQRQkv2K+fiCHg7i/YtWjC/8ZJL+mhzeDF7m3v9zkTE68HyS/LBqp
SDgktr/PA5/TNiskvzg/jNN5+rK/tkFD3itCJL+kEqXS+U2pv4S9i/MVcCS/
KqUWmBq5p7/9zDQ203Ukv7A3iF07JKa/d9zdeJB7JL+9XGvofPqiv2r7L/4K
hyS/rU1j/P9Nmb9ROdQIAJ4kv7pyRodBJJa/y0h9S72jJL/GlykSg/qSv0RY
Jo56qSS/wMPfTwxOib84d3gT9bQkv9kNpmWP+oK/sYYhVrK6JL/lr9j2JE55
vyuWyphvwCS/MIjKRFZOab+lpXPbLMYkv/RxJez4poi+H7UcHurLJL8Cdl89

      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVjGs0lAkYgIeMXKPGDsb1kyHrklznq8z7RqlUarWuTbJKyuQuphoVgxSd
FKY9NVKdDmq7CbWp5tuaQjZSLIXdlaim3AbJRGz74znPef48RGR8QJQqjUbb
8J3/PZ7IHpgsy+VyguTnJ+LZ1KOsC/4mJTvB4Ga/eFUMm0q7eoP2UZIKI5q9
+UU72FTAH7dDX0hy4PKDToFLKJsCv6XqTyRiYLGfbYrzZlMeesJuqaQMpsau
094ZsKlKhaT+nuQ2UCdTIv66a00NRzp61UrqwLdp1qJ6jjWVW5dU41TQAY03
avuaBFZUdLGOkUbGG7gfv12FoUFQMgYnaLnZe+A2xx6z9bKgJLZWrvaugzBU
uLXkjYMplVs5STuZoIADBnYRo5uMKZUz1J3dWeOg4Htdv+fJpE5XjDr1Hf0C
a1zK/aYdGNRXP6PSyC1fQVg1IC4M0qdMOSXh0t3fwM1worsuW4vK5h3T1rOi
oYNX4ydGvRql5Txdr5ergi0Zp5xK/WakwxVmDod05uCHvqpbk/NHpbX83/NH
UtWwp0n/ddWVTmlfq2pxyywd8ajljtG6dq7ZRlF6RsZcLLg/M7SmTcH1MkiP
dJNr4C5+TvZ+9jfu/YM2w4HxWrhm294vfTVqQLiuFezr0kZLRsL6bQla8C7f
5LL2Tl0syt+zqjpAH+4qF9bGyefh7fPrxA/DGUC+evl2t50+Tir9PQUeTPDN
4Us3D+pjiFBzQ+o6Y/B9jae5l+bjK58Pt8wcTKHZfUnPyeAFKJAkNm6YMQd6
lFJoymIgUy/0t151AhaTM4YVzxmYmZRnnJxiBZo9ner8IgMUxBh7l9OsIabg
ZZQ48AecuSKUlWazgepXlz3SZKLRvNGBPSM2INNlpNg0MbGWLmv5e98iqO3c
sjBPZIhDFmW8hXI7ICsp7xAPI6zODF/h+JM9RIdN1fAmjVB1f1JPZ4cDHK1I
to28Zoy9hb/abl3pBGFPZQPnElno782yEz1fDBYnNt3sXmSCZZrBcu55Z+CH
T77N7DbBWHFejHngEoimCfgRpaa4b3CwYaOxCwStdlNwA82wOTD0AL/FBcYj
Ghp/ZpnjrtxRrddiV2BlpRm0dpmj37aJuopQN3Bdv50XUGCBe1fP6YjUc4eD
yQyh2o+W2K/0ehzX5g5bChlrI7ItseRBBj0q3wOmPQn/kX++N9s5+QF6wucn
rG8mSOCbYB1ptBoHdpW52DecITDxrII3XcuBdrdYra0SAj3NTpXaSzngIyuX
K0oIVJ5z6Q17yAHzHtMKkwsEii4mR9+t50Cb8Vx2fDmBxZc/J6a2cQCOd5kz
qwmsuaPMGRnkADMla8GOJgKnWlUq+yxJyFKlFJPNBD4MvDjGsCZBUaBsOd7y
/dfh7eFjS8Kza3En7rQSqNslunfBkYTM9yE62p0EWvTS68KXkjAU5qh+6x2B
PiOaXa82k8CTR/f7fiBwbtIVM41gEp6mXXzcJSfwzzG/CM8wEi4VGYrogwRu
/pLXXxxBQlizCi10jMCoGd2RgFgSGnjL/x0cJ9D+8HWXzAQS3D+lSjMnCBxW
2bi3MpkEfY0B4VUlgWn0gq96+0lIF9vwVkwRuOyIsxekk/DR+pdl7dMEzmq8
OBR3mISQqrMs/gyBsmOJj0pEJDxZ0a6cnSXwiM4CelMOCf8BJ6IoFw==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  Method->{},
  PlotLabel->FormBox["\"0503\"", TraditionalForm],
  PlotRange->{{-9., 8.88}, {0, 0.00026093021}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.70413064088284*^9},ExpressionUUID->"a3595f15-d772-47ad-ac9a-\
9cef129bd090"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.6276395661726127`"}], ",", "0.4980546651202439`", ",", 
   "0.5628471156464284`"}], "}"}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306408858123`*^9},ExpressionUUID->"860477cd-7f14-4efd-bc92-\
a25d3a469fe1"],

Cell[BoxData["1.4538363526176625`"], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.704130640887817*^9},ExpressionUUID->"4a18057a-3ed3-46f6-934c-\
a0c2165ea459"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxFmHk8lNsfx+2MdWaskxlrlH2JGjfN81xUQmXJGi0kW5IKFy1EC6HiptCV
Lde+VFeKzKMfUYlIiLIUSZYRruz94s5zjn+83q/P53zP9/me75nznEfRPcDW
k4uDg0OWk4Nj9f9/f0roDlebMd/f1BG6kf72gD5F9NPBaWKBsQZy4uSR2N4a
yPmFyS270xXRAqfSBg26GjIw2Cjx9CzUKXKLzppukG0cte6mGSuC+DHXDw4K
UiHXvrihFraoAHiBq+74SLcC+rKrvHw1vr7x7AOnJ5B9gzbON6RAzipxYWwJ
VUDV34nFjxluRLqH46JynSCLKzIbJemQLV2+i1yUhsy3YWfu13F5wMEphboN
RZCHhYhV9/wgO547vT1aHXLDZFeL+4gcWmJzwrZ40waE7rHN5fc8OTSu1d97
lfPeZQ7Ke8kBP8WcL2BFRQ4V3dOsdVxPFYl54jv/YZAGeF6zJaoqm4YmvtSe
1tZRQXzvbhJNdaehRLbeTbp9+w9FyBbRS0qO/VTAVbOHig3vUkE+Gj71WyQO
QP1Oj9qzKSpk4T0JVq09soDPYFMdpamyqHbzG+lVHtd3PJzgLIteZ+fjdq9q
9JgM5NfSCsGWneuAnxEbzaGeDLlk6WusgP06tAuxDAjcqITIB+yWHBaHfG2g
/G59GwUtYuf7005KPecGBZ15HtfM0lyPnHge9vCCNdT76X2Mw2JQty40fYE0
y6DBpuNJZerKSC0tz04uXgboeteFe5csoZ7FFejdIwiZHPRu6vELaeC/MGx0
9vYVadSlutBAX1URmXZO5w/ZCdmjiSvRng/63zK8qAb1UkA3K3+VS46WAvpD
ZV297yaQVZL/rGrhhP6bAvPbSzBJ9Ixve4GXqRzCG+72Ju68JGq+th/WIcHj
tS5+DEnUzOP64REGFflyUHVo17IEWlNJIE4rKyAObbEBG6slgN5gxprnC4e8
5ZFd9JCRBIiXp1YpWjcnDnSZO9SUrEfiqLC9SPaYoQxyRTRSOTJYnN0PUsh8
xFDxQUOo+0zvojNmyKiAq5WM36947z1LnlEfkIFu0UXevRhIBuOfWIR0vteF
rPG053AliwTGp+mgY8klJFRi57VKlqYEIpSVExzkTwL+MxIEzn2aJLR9R+zg
qj52yf+q/igRsOt8qySpgAjGv/bbnMHyhvq23lT15g1Q35+54uP8Wgy9Q+dX
nVYmIsaXGs5JWYoBP83vetLbRlHgX97rnHd9hyjw9xooPd1dJ4Kia/UTRpiU
0VZBExHgz1h58KWBKQz0iM9nFqO3QT7cuJ1oUiUE2KRYVOUnXQg1Z7NyYqdR
dYUg2kUXXphS5kC4QzL2hBoIgvUb3O/jsfk+AfjrUf0/pnV+sT05ZMxQAMlV
WYwrKxZAMXuq/JjhHOOSYF2mv4YA0L1YcRXq+fygf8zb7V8Nq/Kj/WvzTTLU
Hsv15+TwoW/2CbSsjiekD88cVuID/fntQhlBPoMX/bDmV0BeeYXKfaDxgvhF
ViabUtJ4wPxxekLmDhTI/lLtruK3uMH+37N4J/CNBDeYT6ff81J8IhfQxeq1
0yyIXCD+ZP6PUv4ETsCtCVhdnRDk+6di3kfGcABOdLKdYPBzgP32JWwz3xzh
J4JznlmjzkneFQSfz0fUxXmMYxnBx2t0jV44urSI4M8/lnm2qP/HAoLv5xI/
sQ6X6XkwPsAw82f7xBxy0kKToPPr91Hvp77a3m8/gH+qsc72xdAs4IeJDmdM
B/5FEtjnRZDr13tPP8wAfYtqWMuWrmkE75c5ltB8+dsp5L/6E5Enj/9S0mz5
juD9Eh6lY5X7chL4w1IvjKJxLMDLWrkMw6hxBO+fiLUDeBTBPFIJq8xtPz5I
CxxB8H649JVIJ3sPA51wxuAq38EhBF+vODGn3gX7z2B+sexwPZbVAKiHsj+D
0HC5F8HXX+3Pi6WlQd2gvjpVTfa3PTrAeMNP4ksRNm1ADyZXmL0914QconPZ
Tv/SLxwyu5HjUgf81LUDqRI8n/dUVD51VwbQvd+ZrE/fmcHE873TzBOqeayS
idfPhDLDMnOpY+K/N5tfeWafOtfExOPdrPHTsLFpA/q1W+svent0AD3mxMfe
80HdTDzfqF3J9FuXe4GO3Niwq9NqgIn3Q/Uy9+wn+8/sfAQQI9/+rIkDQ8w5
5m7n1XpVdFTvXfAaZuL122SassQbOALilZUG5ZPCRpn4emhRbR1oUeNMvF8K
rmhzq8WxmHh/J4XxOqW+nGTi9W8rO6Wt0PId6MThAZ7ct1OgHntp1j0aXdOg
XvF2NeXlH2bA8zXFaF7ZMvAv0AWx1ANPh2ZBvrtmBQxNv/0A8S9rhgi9mJgD
/Nx9aGDP9DxgnhS7yvYfC4BNW2oTXJYWmd3seJG8up79HMsgf2xr+tajvCtM
fH1XAoXJY4SfIB+5fdtm6PwcGF5fRsDpvvAYyG6xhS9rhDgxfL4z9z79w5nA
ieH9noZRMs2IXBg+X1WPddzlRC4Mj989eznkpQQ3htdjnsR0F7nFjeHrI6M1
u9uawgOYbq5llJTGw47PgTh6HFnfQeMFevC5NDFKBi+G9/fNlLaF/Up8GL6+
/zwkfEnP4QP+9ha0dUCVH/D0t5Dq9fn8wE/mK/3bS0MAw88jfcUviQXFAhh+
vtkY086N6xCw/i1z+dO/nveE4z4f3fsE4L928uq+UwaCwF8a/wypqIDcnDev
Pk8Xwv5bbzIy/j9dKeMqITBeuM+L8/w2YQzfL5oL6WO1TMiWkh2dPCYigH11
Rf63s04EjI+xNCuJ3SEKOP9oeMrrRlHgb4y8H020FMPw94fhOyMBdq/FgJ/b
9brWqw1EDD8vk0Y0sse8iRj+fqIU0iAjWkAE8e7zeCTojEI2SVzhttEkgfGt
8qmhJ/1JWDX7vDxcbMhKKiFh+PvT999aj/zDImH4eRrReKy7Q5eMWa31hwxC
dBCwngskYxHs8+Pu5+x6ygMy8OsEIlu3zkBmrnSXuRqKA94TF6x6Llgcw9+3
eynkO3cfiWP4+Xv872JS7RzkZYNdlz8ZSWDktXqsR+KfDS5xh0OmWkecVKmW
AP1f9FH2645lCQy/bxj7PXLzZkhi+O/JqznbtzHnJYF//6UJ80IM8qh4bE0T
pxSG7/+wTBWDCRPIgjq1+WLRkFOqXeX16qUw/H6gZjH3py2fNODHnUmCp3dC
NvfUibh5RRrk3zX18t+KF9KgHt4RR/26BGUA/xDhGpi3hHw57S8H2XjIUmpG
TcbNkHMr2n8/IEYBvNnsxKPz1pDrW4W0Mm9QwPz2B//OetYGeWjMRGZQfB3w
nw7rjee1X4fh9ykegTDuDcnrQH2TbkqGmndCXVm5fMJHRhboD8qsjlx1hmzC
+Pq+KBVy26uovc09shh+X3R3lq9nUamAv3958hvpAOTI0w5l+nchE7mmVPb1
Q864Fp8WpEgDrEtTI91yp2FkNjML6i5VZtMw/P1kL/3Q0vtByH31i4GLKnKY
Nvt+e9zu1jDVSw7TZPNKv74bI08Ow++/8ceb2w6OQKYt+ZhHqssDLo7hrcny
g2wsnbmprghyU45x/tC4PIbf/7Upx65FSSsAfbbPyEKCrgDye5rLz3vPSQHk
d9H/HdMwFPJug+yw5ykKGP49Q3LxhKHjE6h/rGVMDncrYPj3iZwrwoV/LCpg
z9nzH9vb7UmgKgI2kMpTSDWGvPQhqEfdTRHkV5dtmlx1FnKcL8nGKh2ynV6f
0McaRcz9c6LlCEMTkZ0reu7f9yte36Tq6veU/wMemJjU
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAxUHW+f//IcBb71e62hAyP+gVSy6W
/iHAf3MXDSwPMj8K6r9iLP0hwKL31l99DTI/UJKpy1j6IcDq/1UFIAoyP9vi
fJ2x9CHAeRBUUGUDMj/xgyNBY+khwJYxUObv9TE/HcZwiMbSIcDRc0gSBdsx
P3VKCxeNpSHARvg4ai+lMT/NaVSKfkMhwDfFCqB1MDE/qzZ/fu/nIMAEbg0N
eMMwP8Z+nDosjiDAveqAy51YMD+J3c1MzSwgwPhWyh9qyS8/o9PBv9ujH8Au
kPQWEfEuP4UZEJLl3h7AclEAGpsGLj/fVUP0hh0ewIq67b9rIC0/Ru05WCdp
HcBc2zzUtEksP/2xWGiQpRzAPIRt9OBgKz/B0Tp6+O4bwNTk/4KFhyo//ucB
HPg7G8BC7XO0cLIpP4sr8WnAeRrAvX3J8T7LKD8lyqO5h8QZwPLFgJ2F8yc/
D5Z+tRcAGcAzlhlVrwknP3JYPkE/PxjASg6Urx8kJj/idcHOZYsXwBs+cHgI
TiU/osBsCFXIFsD49S1N1GUkP29m20NDEhbAj2VNkBiNIz+MOXIr+kwVwDNd
Tt8/oiI/IgPuokiLFMCt/DDRrbshP8UnLRyW1hPA4FN1MZTkID+4eZRBrBIT
wEBmNju79h8/uCa/aMFbEsA0lEXwPkMePzDKzh9uqBHA0hEY60+YHD/5mgaD
4+UQwIqfrf0myRo/z8YB6FcwEMC4nAbt7hgZP+s/SvIp1w7A/qki9HxEFz8p
31o001QNwO4GAkGYeBU/gTTyeXrsC8BU06RqpMsTP3rk2RezZQrA068KrHb6
ET+MSki56fgIwMX7M8o5SBA/j52Aek+TB8DCLkFcFD0NPzNLCZRGDwbAMIag
U0GhCT/xrhixO6UEwIS8hgRQQwY/T214JsIcA8AKE/Pk6pwCP8fhXp9GrgHA
8JDM/c5o/j4wQw84+kYAwHg6wEj9ufc+c/4fUn6C/b9kJMDyQ3rwPrniLjsE
q/q/OJibH5xs4z5AfN7UrJb3v9ChPV+EC8M+qu8hrrOQ9L/ok8SD30TTvkfP
co62vvG/wIB4tTkQ575LyMg+uF/tv2Ibe3Xpz/K+b8rGbvup57+SOCyd8pv5
vlmA7B37EOK/jAvoVuMiAL+KQadcgPzXv5vasy9BwAO/XWZWM/VNyb/EyvhO
vR8Hv/7KsmS96Mi/ELfV8swuB7+gLw+WhYPIv1ujspbcPQe/5PjH+BW5x7/z
e2ze+1sHv2qLOb42JMa/Ii3gbTqYB792sBxJePrCv4CPx4y3EAi/H/XFvfZN
ub87VJbKsQEJv2K+fiCHg7i/h0BzbsEQCb+mhzeDF7m3v9IsUBLRHwm/LBqp
SDgktr9qBQpa8D0Jvzg/jNN5+rK/mbZ96S56Cb+kEqXS+U2pv/cYZQis8gm/
KqUWmBq5p79CBUKsuwEKv7A3iF07JKa/jvEeUMsQCr+9XGvofPqivybK2Jfq
Lgq/rU1j/P9Nmb9Ue0wnKWsKv7pyRodBJJa/oGcpyzh6Cr/GlykSg/qSv+xT
Bm9IiQq/wMPfTwxOib+DLMC2Z6cKv9kNpmWP+oK/zxidWne2Cr/lr9j2JE55
vxsFev6GxQq/MIjKRFZOab9m8VailtQKv/RxJez4poi+st0zRqbjCr8adF2J

      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVy2dQkwcYwPGwIrIhjJiwXmTndZUhrjwPiqHaosgQSNAiCghpwXXgAHpi
pKQOUBkWIh4cFfCgVoZotHk5EIwyBRtlXEXEEQsGaqgEEWo//O/36U/EpoTE
adNotKAv/a/6oMv4zLUcbmHpQOujEjrVIirbxr4SDwGiqAbbC3QqreYG7Z0k
FT4kDlQkZ9OpkOZbUY8l2bDDZ+C0xUE6BVvX0tskhWDU+SyQz6NTvqbpwzLJ
NcjSPO1QTupRN6ckD+5KbkFymKJfn6dHqWKXbZBK2oFn0P+SN6lD5bQfalye
9xTUghOVAYZaVEKBEVP/5AsI7UjqlP42J2tl+O1cb/cGOlqsBOaxH2USNycv
jtcErM+2XyUsn5Ll3JyhXTgwBemHC2anxW9lWsVUU6JIDc/GQjb59Q3Iiqr+
WT4m/ghYVF/X/rZSNruVeTVWMAu3uUzZ8u19XFu/K7tliZ8BR34qbqgf456O
/tnQ1ImGc833lHEnVFyDlXMPTHO0sHvc/0w8fZqrqrIjfzTSQc/awEHrllmu
VHj77GSqLjbN5/8iN6bBWL92Qe+CHj7HCCddtTbYbT+VcfLkItQyz3Sq7dSD
DZYZsd5KfWR7XHJbd0Qf7mW6qsJTDHC1QJMTGG4IhNeWo8eGDPGbP4NUfnom
8Posu9ow3hjrGjSRYWlmcEezVJqsNEFp2/z0xlfmsOZZ38tEDzOUzR63qljL
AF62UBY6YYbt9xz23q+xBN4AFnErzLG9fJ1XBN0aun1WjVyIsEB5z2LKMcoG
9OI06bYsBj4S045Vy5mwYs28TVUPA9sTkhsrHFiweGSQLsy3xPt9uo7fXWJD
Ul5fXGG4FTaLgnjBNDugXtFbWxZbo5RvrKoPs4dWY8YR1y5rrPtjuk3R5gDS
QcHSM6dsMKz8uqlvriOsuUltjPRlYpDYi2XrR0AC/1Nj9AwTH9zqvbtHRYC4
6rBbbO0ShNTq0phiJ+A/bB0vPchCv/RCJhW6FBxyg38fdmfjCkuqX0FzBuHu
mZdZw2ys6GkeF193hgTaUWHMVVsseayQSGJdYGeg9xQ33A5z49zP7zdxBXWM
/FEYyx518Lx1vtwVWKI0y/4he/y4oWuO/6MbeH27NzokzwGVXYHOQx7ukHmY
ka7r6YiCCsWodNQdBJcYW2JOO+JDo7LR0FwPmFtNbJv8yxGbLgdgjp8nTLex
PrORQFfhnLftpCfsv/YVR15M4MUeVVJiCQcU3j8Y7JIQ2DxbExxfyoFNrZXK
qSsEjrsk+e4t44D9iG0Vu4zAgPQxrV2VHHiyZJFLSiWBaveBy8H1HIBzQ/bW
DQTuzGppX93BAesjIot9XQQyfQqc6J84INKmpma6v/wxIfo68xyYytP0nusl
8MAZ0/cLNBI6a5Nzm/oJlL8Q39HQSch6E2lkOEjg8fOZwRMWJLznL6PXvSZw
+E1C5hNPEqKVCa94bwnUZ7jse7yMhIdp5feHlAR6c0e3dK8koSLf5pTeBIFn
86Ot5L4k8Lu1aFEfCOT676i5u5EEefT65xNqApO+N7l4ezMJPn+nyrL+JbCw
qCOt8WsSzPTH02s0BL6f2LzpxjYSMgpdo/0/EchaouNRs4OEd8571inmCOQF
NJtUh5EQWV/CEs4TeCglQ/1rBAlt/grNwgKBpcVrB8v5JPwHqj0luQ==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  Method->{},
  PlotLabel->FormBox["\"0518\"", TraditionalForm],
  PlotRange->{{-8.9363844, 9.}, {0, 0.00021549794999999999`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306409369497`*^9},ExpressionUUID->"1087b1d2-84fa-4da0-a3f5-\
364477e7ffe9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.5977714891720572`"}], ",", "0.6427543482292709`", ",", 
   "0.6202629187006641`"}], "}"}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.704130640939957*^9},ExpressionUUID->"126c35ab-d544-4759-b329-\
127c013ab0dd"],

Cell[BoxData["1.2957500278156182`"], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.704130640942975*^9},ExpressionUUID->"ee4c255b-9afa-488c-b705-\
7d6bdd207ba2"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxFmXk8VV0Xxw2ZZ67hmu69yZhQGgyxd0oUeUpKSVRESaaUUHiSCIlQNKBB
FKmUCuXsUGQWqfSaZ03ILLyu555z/OPz/fzW2vucc/daa++1GYc8rQ9zsLGx
lbCzsTH///e3FMkrxkZdrdIGT87PF8V+ZyADWdilEacNDvDNn2V8ZiCORJNs
d6ADRGPm1ucWkzoSn5sxyWGgC+f26KZragGva7MFDckMZH3lVuZOWW1Al5/1
dw5jIBeO3VuYel3aX70xL1IPUf47EWZP+us8nHkhZc5AHjHb2PpbtUC71szJ
DF0GshK2kGJy7LPp1Xo0BnLjnzl+5q4WgHrTf8r5Gahu0CuUVq4Jhl5P5e4d
pyPLyMlQpp62Ycp7sIOOzrPG3/5+Uiewmo7OzXHd1h9eAdgsJn8L5NNRyOxw
f2Vei/GT2omcm/foxPMcsJk4viKWZNGv45pFgXQEz95O2WveZIz2j3+3ciV1
r86xh23WdHR9RLRx3HgFoLuOHfUypqMnbh7JzOer+z6qxq5B2od4jfbFSS7o
vXI8z6M1gc7Yn/tL2Ul/7E9vpctXGsG02Z4tEU9oqKKz0sF8hyYI5u4pexBO
Q698JIqYeptIt2mlAw3dPOXkcihgBQDUrpIfa2ioxkVx+NnC+KlLOzcIC9FQ
FYvnl3dg2t2KBDuuaTfaUUgyZtxW6HOFZJp5q37CUUXU3tQUx5W6HATvaHmZ
BxVRHUtvs/vfms/SiqjbTn2Zd/NyAJy/PZv8pYCkLLpzin9ogNTjzStl3ysQ
7zt/6utjw1sKiM32ayBzPMeQLyv2+yqgKtb7YRc/ZwVZKCAZlj8tvkk9bSnJ
wTc/Zbydkie4Lb1RuauOZPC44e6STJJTX31kqASTPP+2PtVsN8mOlXUKR1eQ
jDXW3ohcIo90wO+OYIOF+VtrqNnf5NB0RUfp4vx91deqc+WQ87O/c+sj1EHb
UJXk74tyhD2YrowXPSiHLA1T9Snz6iCVs1JslR6pzwtWXN4pQrKj1Aehk72y
6JD2Q/d6S3WA0cqjrr6RRVtZ/jT1Mr5XCaQevOp9+NdjskiL5d9m+I5rxoRk
YFoaKi9LcqpVCbvxMJXwn7ctDnYspxLP73jw7WxIKhUdwOd3Q4F3TlHRaaW8
1JjraoDmi02VbCP14LNFfj3LyPHaLrwZ4/4rQ9iD2Ncn1BpITk0uHN7yUIac
/06B57F/Zcj5s/N/Ru8h7bG8V8dytEmmYS8HarllUNLdlxeZHFz+wnW4RRpZ
YcOVi+9fn9cjnidN2Bt/e+60OlqamC+l+1nHLieS537mOvoZkOww8bQlSYzk
Iran+wr6pQhW5H/y9RtGcpDEY9vZq1LE922Vz/mk6EHqxiqPdkJTKeSzna+k
oEAJpGhn1x+UJ3lOL+uf0D+SRD5xMHlYfa9CEu222XtMZVwJFFk8sHh/WxJF
oLdOgtVLgeKuzA99pyWRL8s/yCHDjG87ad/qev+dhqok8jB3TunaqASMvdM3
Ws5R0B6WnhJw7+3xTxR0R4+mvmb3UjAXehdczqagNBY7XLrz5kkoBRWtrg35
ILsUFF29bfjRjoIa1ZqfXTjCAIppafl/VpIc9CB1nSQf6d+am5K3tl2C0I1f
39Ld85LklHc3n/rHSKBB+Z7ejS/oYK7mhvaNwyQ7fLn+6PV6kos6kpe3Skgg
vcV6QwOK35MezA+KI/5bfXVMPWj0miqjWJywb529mm6SLI6OLNYbRWDMc1XJ
2UscuS/WC0WQIpp4O8xMHK1njTdHTaBlKIojZ5a9g1L8rfIxMXSPY58Ck4s0
r8gNVomhtOm8yeo8BaC4Ni5Z4J4YMV4QiJVeESiGGhfrjzxoNb+caGUtRs5v
HSPhpS6GQvx3ONgv/L4p+y7FxbGJsfKbPJhzjhZ59lkUTS7mE1ng4BF1qTFH
lBUPVFDkFykwHiaK2BouDCQ7yQHFfy9elN4vitwLbytR5qkgKDKCR3+1KNIs
vPkPk1vjw8PsBESR2rMJDaMF/0ADIZ7JUhFiPMNtApyGJ0QIfcaRWeBJvdCH
ZwbVCqPYG+KHXyrJgMAwrgnOIGFUHu9Dac+WBoZJnH82awqjycCIADtzKTDz
kP33xWYhQi98Mz9YFSGE6m5I6y/61832iqwjdcOumU7rHkE0dKJrV2i9JJgZ
m2pNjBckxivknWz+skEQvQoMvc/kQLnxJrkhAcLeUGv0o0OKAFrmnNLe2EUB
M3Ck5ralALK3n7s8604BhTuHKrqn+Qk90OXXe9UH/IRu4P+j2M2W5OmowaJH
XPwoehNl3I9XAhSk9BcMPeNDESwOeNr7QvcQHxGfBqXduadE+RDdfqpw0b+p
Mye/iBe90tSwH7krBgoG2h/+dedFP5ZFCsitEAMBf1vvAzleNKqprcPUDURa
7pz7wIOGWPo041vKOz8eBBfXowgoWP31Oq8KyQFmn69aNHIjtunbmTV51cYG
dp+uxJzjRsskTa+6A1Ew7d4QU6/DjWIHjz2mlQuCguD6SEobF+l/pfaC7SUu
xPttubB3swAwSK8+d92QC+nwjyefuSsMpl9WBrUMLEGi30/aLvpXfAigJ5Ec
0FJ2ymnzEnQgy7b5sBgfMBh653N/lBMlseab5ij1GLjDidqzDp5j6gWSxW6a
O0gOUEMunvMcpL9h0aHcRxzoyOL65QPT2147jO3jQLGW+bL/BHOC/AMFdnr8
HChkvWd9WhwH8D/xanfgK3bEZuTvz2T9Cy+si1zYCfuppOdW7JILOuv3yc/K
3bqphI3Ir/5FTzaHe7MR60u/PsekgsaGTjXu28XMhyNle8/K3pzHjP83kz7r
vgz4/Nx1Mm1yDuP/AeWy7ZTBiLj1cZVdc5iG+0YuJvvoWR3OfjpL8Mj+rftX
Cc9i+Pg+oZt3vXL7ix1YfL8B45FMk23GZTPY6MSa/l+CKsCnxti0VGkG26w7
TTFaqHcjfwyMtoZMY5mXFZJ8vVWBD3Xdmrr/TWF4/Rox1l2xW38Ky5bw0mjP
XtCdtZX/lzhJ6heXKxwamSB078eqkv1WE1gr5/K8lZgKGG5UEvLIGscQT+D+
W9MqwHuaxjXKM47h32uYxtygj2HFuG4qMzaPRrGKxXhVBcNulJ9hCqOkHiva
IxDwB6tixfNwnmBLXNMIhsen9zfeT9K6I+T4bFzVty4Pk7oK+zulH0NYdPxx
uOhvMfv6gfkQhsdrR+fIUcetvzE8vjpWfN97jPMXhsdLx+muLX6vf2D/rScq
6Cj5ph968jsxfrtwo/plrUEMj9/2vVXUG3392Cjr92m/V8qXkdZHjN/+m3lg
6MVCVldkf5AVB+0GeQNF4j0YHs/tYY++VlR2kePVpX9oOt+Jla73TU+LEwdt
cin5nUYdGJ4/iqo1d7b8bMP0WPFX5KSgO+bYQjx/0ZSQhNDHZkJ/c3luZNmm
LyQr//64/sUnkgvbcm3UGjA8Xt7sqLvifr0Oo7Pi/3Ttvz281Costpnhwozv
0zOH0vVm3xP2fqqbDh/peIvh+eHn/a1bdaLyMTx+v8wyC2AOhsdn1j4j1Tee
CRi+f7fblP+11CMB4PGmPWJ7/O79HIDbU28PrB2JzCf40r34fVs63gI8/8Sc
zr1BnX0PIljPF2NZ/21Apgrg72cmOim0/3odwJ/HPIBHy1StAeDnMfNuKasV
Lz6BbgosZr6vuZWKh+SmL4T/lldrYmbrm0leaprT49hCcrRNTfXPNoKVZ1ZO
NBt1APz7KT/R56k930nqhzdIl1R2Abw+KMtuUX0p3gPOL+YjcaBcu31d1t5e
Qlc5v8csNa0PPF8Wto75+6roH7CN7+sH+HpR+eXqGq41CPD8oHLX0y/w5HeA
r3+VPX7hnq9/kPZCwdecOH8RrFp8IcN262+Ax1O8Ydm3dPMhYn4Jqcou2o8h
gMdP/FDN9+TLw8R8lMqPfyR0RwC+H01Ib5q51DQCElj1nRLSzMkb8Af8tVpt
q6W2HCTYtQqcUxgFD1n5hLKmU+IvGgV4fkkQ6ZU75TwGmmfCYu3MVQBlcEBp
iGecsE8o/bncLWsctIefNWPmC0rqsG631QTA62eC/5ihw8gEMR7FZmrjl8RJ
4v0StGYtrPWnAJ7fKHzsNlX/mwL4+Smxa4n95pBpQpcs4nVGSjNgEyufJiYJ
uhuUzQA8X0meEPV97vYXjC9+DxWQuI1yRkt4FuD5W1JN5nzmU5ITOeSjl+6a
A3g8S7bQEm5Okpz4Uumm1M15YLlJZOnpBRb4IGFdTmOD+Pe3eCG5O8ybDeLf
P+qutJ1JCRuUZ+WbyliqwzyFHT6R3RqlETdvLBAkd+i1CzuMYNU7i2MKLv6v
2OF/+x9uELWH5raWn4PgSlOGx599HFDvzCUrJgvoKvk8eUTqFnTlU8fnSY4S
Ug3Q2MEJ8XpcOa0W1HeHE+LxJtCvce7eKCccKrgWyMwXFp80LxzcvATi8RxV
rBWpmLSEsK98rBPzbWAJxONF4NaqK0mGXIRuEbn66q5LXBDPN1F+a6+Lt5Fc
6ayXUqvDDfH8IGBtcCf6HMkWYP39LY3cxPhRmsYPuVV4CK6iwpwSPx6I52dB
HpPckA+kbjm68YWRHC/E4zG6w7Rg2p3kqhqzopdFvBCx8rfg6y3FvqJ8EI83
y4Xj1spDfDBk6r/9VvTVbRW/nvFB/PevCv2nJouLH+LxJ+i94+MRW5ItHXY2
KT/gJ+yjLXY1d06TepWebWuqpQDE64+gyt5O+xQBYr1YSuzrpQ4JEOspmm3/
YNMGQWL9VP10+BUfL0jYC347MLK9h2TL8kPjQuuEIL7fjs5znq6IEIKlUdW/
eddKg6o7LnPhzUIQzz+CsUc4TDWFIV7PLc+6cXMECUN7Vn2NdnPnx2qFIX4+
qLL1ED7DEIE3s+xzmLqgqZe4/gkRQt+2ykdqvJTk9yIGl/YKiBLswm0oorda
FOLnHe5Zwzip/STf/7NeYixMFOpV9iYxefOgUWJDjiisY52vetuNpXM/i0L8
/HThM0iOZRODN1nnM5UaKOepLkbo70s33NpmLQbx85hLoQlNM3DBfrGfpgC4
czfe5r8nBvHz2/3MTUoDVaS9WappetmYGMTPi32Jm1XvK4oTHB5t9uC8mTjE
z6eqoebLnbxILvPf8mhDMmnv6rVVm14sDnuTrth8CaADHleLp3OD4vC//iod
ZOy31G2RkID4edbMZlte4XoJYry+rVbrrh8m9fAN/+SfjiFZVW+7oe1LCfgj
bZ3/42E6KNPa8WZNuwTEz9+uytYLOZUC8fM6j/zOtyMrKRA/T2eI22yst6Ow
4osBzPh2vXscSoF4/6FvfpdZTDbpHz6++4P7JwqMXFzvSkD1p62FxRwF4v2F
sq491eqqkvA1q5/g2rz3H97tJPPU29X3npYk/DPK9u18d5tksyL7T3crJKF7
qZjg6QXue77f9twfksOzHL4ekJeCeP9D9Y7jPmAqBeEBK72jmctAWdKBFgUP
KYjXP9fLBx3/XpWC+H6f58KhjmZMCuL9tYwzTk75/VIQ7+eYnXDuuSYmzcqH
6qDv6GHXUwbSEO/XhR9wGbBxkoZ4P0rV1vWYbrQ0MV/ZtiM/xfJIdt101HOo
hWQeQ7fhGm4ZgjNWHjvxSFsG4v01MzX3sag9pN6neNzP7V9SD5f0mDJ/SLKq
oGegaoMMxOthGYfXLNdfGfhff2Bh/imv4O5lVIjXY54hb/aSbVTCP6PXJ/T2
KSoMWm5Xynxfs5YTXCGppN7X4BvuUE4lvld4xUk+o2Eq8T1U356KkpOVhZas
flz5Sz+haRNZKFUWJ2/7VAMcyTl9+csxWYj3V3nT/cVeJsgS+TbzRkB84htZ
YnzzK4GSvr2kfX/EmWvWInJwlVkCN3O8iOCz1JV6coS/2qmgGyIH5Qj/cvdg
hV8X5aBOyQbf7ycX5ncKSa3KlYMU1vPw2v3LyPomB0U3gkimnrn93N2LS+SJ
+czNQpWPrJCHeP+63+h8xubd8qx8tTD/6jB15WB5iO+f1JZfyOLMlIcci+ft
5aCcEb6is04e4v3yIzIRj9GUPMT73bwiF1emLlUgOJMr8tlZCwWI97/N/0au
sfdVgL2s/Xj/SNRLg1ukHjEQrU99T+pq7ZcKJ34pwE7WfOVNMUZN0ooQ798f
qb6MPYeKkAOfvzR2Q/xRRZjD6sdnFsSVeF9RhPh9gfnTK6bbCxXhC9b9Qn9G
fJlWtyLE7x8iUhK2CAnRYBLrfkItMbHy+xoaYV8etVBAHWgQv584cu5abWY4
ac/rn7Qj/AkN4vcxmZ7JDYe/0mBaEG8Uk5fpVmssZacT9r451cfiJOkwhGVf
ql6TzaZBh+dZTEmv+elpTCf8nem1Wm3WdLiddX/0/Eatp5UrqS+RrnvyJpAO
3Vn3STZX6oY1Y0n9nlD9qpv3SB6NqD8hkE+HNlJDBtgubbBpycfnAdXk+AnB
H8cGOujQi3V/1T39ce3ecVJffarBr5yfAa1ZfH644dU6GoOV37VBo3vj1H1d
Btxz3aSaycv6Gw2kzEn2dfoUGGZP2pe2fno96sUg5qPYNc06hZG686cm44Zk
Un++/XOwSQ4DurN4SdVn9LSYtLcx+8LO+MyA+P3eveIvJrHfGZBjJ7XrBUMH
/B/8UakF
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAxUHW+f//IcDbkONdhpoxP+gVSy6W
/iHA2NlcL+yYMT8K6r9iLP0hwNQi1gBSlzE/UJKpy1j6IcDOtMijHZQxP9vi
fJ2x9CHAwdit6bSNMT/xgyNBY+khwKYgeHXjgDE/HcZwiMbSIcBxsAyNQGcx
P3VKCxeNpSHAB9A1vPozMT/NaVSKfkMhwOj/WPXOxDA/qzZ/fu/nIMDrDqwp
AV0wP8Z+nDosjiDA2gV0R3nuLz+J3c1MzSwgwEjPMfGvES8/o9PBv9ujH8D6
Vk+RokMuP4UZEJLl3h7AGMAO51RkLT/fVUP0hh0ewDLzQ8gZiSw/Ru05WCdp
HcCQ5NifmrwrP/2xWGiQpRzAWLcPLdveKj/B0Tp6+O4bwGZIprDXDyo//ucB
HPg7G8Bxo7K/5kQpP4sr8WnAeRrA599ghLVoKD8lyqO5h8QZwKHabj9Amyc/
D5Z+tRcAGcDHth6wirwmP3JYPkE/PxjA6VxErOfhJT/idcHOZYsXwFDByZ4A
FiU/osBsCFXIFsAiB/FG2TgkP29m20NDEhbAOQt45W1qIz+MOXIr+kwVwLzw
oDnCiiI/IgPuokiLFMA7oD8ZKa8hP8UnLRyW1hPA/g0+70viID+4eZRBrBIT
wC1d3nouBCA/uCa/aMFbEsBA1bz5mWkePzDKzh9uqBHAHoSoFPzSHD/5mgaD
4+UQwNT115rdGRs/z8YB6FcwEMAU5MYNN34ZP+s/SvIp1w7ALJX56w/AFz8p
31o001QNwDzaF+ENChY/gTTyeXrsC8DWm/XCg3EUP3rk2RezZQrARiAXEHm2
Ej+MSki56fgIwEAh+EnmGBE/j52Aek+TB8BhbIk18QYPPzNLCZRGDwbA8xuq
rRSXCz/xrhixO6UEwJfESf8nYgg/T214JsIcA8Dp8nAnOugEP8fhXp9GrgHA
SxoXKTypAT8wQw84+kYAwD7TKLEQ9fw+c/4fUn6C/b9GfTK9pg32PrniLjsE
q/q/2DJ0+Dg47z5AfN7UrJb3v+CBodAfQeE+qu8hrrOQ9L+AhVsBe1m8PkfP
co62vvG/gHidVAN+0r5LyMg+uF/tv3DSqlo3Hee+b8rGbvup578sgoXS1gfy
vlmA7B37EOK/P0sHnH1g+L6KQadcgPzXv/QIergmQ/++XWZWM/VNyb9DavcQ
+NcCv/7KsmS96Mi/wcxwOVDmAr+gLw+WhYPIvz8v6mGo9AK/5PjH+BW5x787
9NyyWBEDv2qLOb42JMa/M37CVLlKA792sBxJePrCvyOSjZh6vQO/H/XFvfZN
ub8DuiMg/aIEv2K+fiCHg7i/gRydSFWxBL+mhzeDF7m3v/9+FnGtvwS/LBqp
SDgktr/7QwnCXdwEvzg/jNN5+rK/883uY74VBb+kEqXS+U2pv+Phuad/iAW/
KqUWmBq5p79hRDPQ15YFv7A3iF07JKa/36as+C+lBb+9XGvofPqiv9trn0ng
wQW/rU1j/P9Nmb/T9YTrQPsFv7pyRodBJJa/UVj+E5kJBr/GlykSg/qSv8+6
dzzxFwa/wMPfTwxOib/Lf2qNoTQGv9kNpmWP+oK/SeLjtflCBr/lr9j2JE55
v8dEXd5RUQa/MIjKRFZOab9Fp9YGql8Gv/RxJez4poi+wwlQLwJuBr+5RmYj

      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVz3k81HkYwPEh55Ajcsy4vo5xhx8pxTxPFKvosOSWFFZDKi16OQpDSMUm
2RpkV7K7USol1Uw504GVJKQSSmUzVjVCtv3j83r//SFhsV7h4jQazfN7/zu9
1+iDqDKbPTo52/42hi5o5JZvZJZEAOeLUqReKF2QcOEi7R0vHibnjST8vOgC
rzvX/P/mZcFX+mZ2mz1dAOtXSbXwikDRqOLyuQVZgb1i8iCfVwkO/h5nwgpk
BbVCXttN3jXIu8uLHrwqI/gYZunUwGsF6hcnxa5ZKUF26766ZflPYVUh6xkX
FgkiT8pryKS9gsX9U/U2mQv8JpWVWx2134D5yXc3tteI+DxjfVtz2wloVLZp
tnAR8rNrRbSCPUK4lVCUHl09whc7LbgexZ2Gs6vLnXprWvmnqqaWjeR8ga6j
LkPDut3sr+s1ysICv8LZNIlsZscYW2tlSQg/ah7qBw3bDvdPsTODcuUU9Wmo
+iDO16Vzhk23nmtTzBbDz7718UmbafCxStvioPwirIxSvH14kQQ0cOrzJuMl
ML9irt0uQRpGHouf7FqQRH6qs5fqcjnQ3pSRkpYmjRbe257HvlIAJ9WUMLtx
GeSY5qjbGyvDrVTWR59YOm4XKaQ+ElcBYuueeGBADj8NvHCr46vCWB7zD7mI
xWipGLzpWpka3JgxaNg9roBid9b5fUrQAIe+7tdRpkoYl3mgmWvNANcsDv/H
CSXMOe2/21JBC1yf4Sl2hTI6NXOTWA+1oWO5zcsC3yVYwGHmBqfpgmT4TLIW
QwXX2li9763WAyuHb+pVnSoov+Kzs/ERArIv+6U4hapYufOEg0SSPuzK7w4v
8lmKSlvGrA9FGIBgVKqpUVYN77cN+Rs6G0LTYpX9rEdq6B1RTXysjaChP9Dg
SIY6WhwnzBoFFjjUCpz97DWwJ37D0sq3LIgMmK0LEmmgR9aGGrMnxpBTFWcc
Vq2JanrCxKe1JhDQ3vShdC8Da15FDyuVm4Lu8c2XBk2YWGR5LGXfITPghIhe
pw8ycePKcM24QHOIpCVyQsu0sG/XEm+auwVsdbMTsn208ZJx+J06liVMh967
783QQT/5Yw++qC0DBjdB9fGADnZdjH7aJ24Fth47grzydbH4+aTq8JAVpMap
JEuY6WHxr+dENyOsIfCEintoph7m5pxbYPRaw9wKsnFySA9H/WiH3V1s4FML
Y56JBE0cW4P5N2zgp0rK/N5pgidGQjzdTCjotYuhB/MIiqdoPLczo8Cl6fy4
sITgnqXd0foWFOi81KpilhP0dF2XN29FQY+mtFHseYIyVeYPrqygAI4O6Khd
JZjEEf2g50aB2n7ukp2PCO6YKlg7E04BV1wgFHUQ7M7d0DMWSYEwf6braBdB
NJDc2RNFwcPq3cevPyao7Z2YcTGGgvQ3fvJy/QT76kIaw3+m4J8AS6nLYwQ9
DphjN5eCoPHIUde3BG8pj3YKsihoT/iteWCcoOmfpduqsymoKFTPkJwgKD2g
fDA7j4KADjGa/78E7zqKbrMLKbgX5PhiYpqg9ZNaT4siCpa/j+enfyZYGsN5
rllMgZLMh+QLM99/Sofmps9QkFLEClozS3DcvjhvuISCd4bbV/fOEfTt3KLV
VUaB35UzDM43gq2Rchdul1PQsqZ3ZmGBoB2tZfVfv1PwHy2IHDM=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  Method->{},
  PlotLabel->FormBox["\"0531\"", TraditionalForm],
  PlotRange->{{-9., 8.960085}, {0, 0.00024792101999999993`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306409840727`*^9},ExpressionUUID->"1fcf1020-96a1-495b-b22d-\
ed8368c00fe8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.7136046651665817`"}], ",", "0.6125004125611565`", ",", 
   "0.6630525388638692`"}], "}"}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306409860773`*^9},ExpressionUUID->"c6e23c44-3234-48b5-9f61-\
b5a1b6809ac8"],

Cell[BoxData["1.5492414482426053`"], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306409870825`*^9},ExpressionUUID->"3d936b30-58ab-46a4-af33-\
9c4f50b19bd0"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxFmHk8VVsbxw+ZZ+JwzjGcQxGqt0kk7F1XoV5jSHovJRGaTOV2X1OmJjS4
pjfz0K0rDdTF4ZxdVPd2DRm6FZKhi0xlKBR6dzr7Wf7x+X5+z/Ostdda++zf
szhex5wOCtNoND8hGu3b/+9/2oRP52cNnQJ9bOfu24lh/RzicsWH8FYdAyyt
dB9rvJ5D9B/vNN+w3BDrFVW87lfGIZRsW7LeFhliq358sLE3A8WHlQfWuUdx
iLeC+DppbadWHw6Bx3EXpOndFvIHWt7stEX57lWnj9St5xBVKf2vYwoNsCLF
9V/MmKje+KG+M/doKN+MuEJfPcCG+SSoWhYWN7AJBUG9lqNTa7XKEWs+LuSn
ZaJ4Pw0XW4VoxOUhoh1nfNkw369/3TskZMcmLgrG36nj8+mnDWzikGB9Uk/R
YyeYbJhfT/NjxQAhVG+P05jFkyYt0N/T7N0rriKOv3Ur9LqfFjyvuofCpcyN
WjB+mUxgyfkliG24zU/++0wT5tPtt67vSJYm7NcJtSsLHv6aMD/ZJ5MMB2NN
mE9BqLPRFhEUb7rsnsO6Zg2o96xF5bBOtgbk+0afSFAO0ID4+X+9yBc1QZzS
Zcz7JILYIDH91UCzOuzPg82zUy+z1UHfPbRH4WmAOjFoxVhQ5KzAxtKrDLkm
6jBerBXLqkRUnVBaJu/xMG8Fxvr0s1dWCwv0O4Wd4Uk5LMKMJsoL0tbHrHeZ
Z0QeZkF8l1B2+fFNLKgfenuhab8YYmlPz2GnViZwviwhZpnLJHgBOtn7c/Uw
k2q2ttERpDf5R5vrmjJhvIOMXjdVcSaRkrzK4o6WHjb3ZGuIRBuD8C8z7qLl
6GKXTxQkz+YyIF9/uchvQ0cQ81u9H3eYInY9/ainXpwB44+s0Z2vaVODejFv
4tVu5alBPCNpYH3uUTUY/7aZtf2lzWqw3tuHf/U/LaEG9V5nSMYHP1cFDrb2
z/POV4X6UtNPq12OqUJ+bpHhy+1mSDd2vjBpLIm4QXhUTv9vOmHxYkuEg6Yu
5n3H1oBZQCe2lkZYrGbqYJ89S7dJH0d8SU5+/5wZnSC27vPAri7D9GqO/XdU
EjEv4Fla198qxOFzIdldmTqYM3NtWVOBCqHWcqYrPEMbG/7jUiNxHHH0yYl3
d8xViDpGlqZGOgdT090lWiClQmSaX+MdVuVgpW1l7JQXyhC/LUbZLK5QmUgX
6B1rQ3efCEQc1P08yNdCGfIlkjcmuUkrE5aL68HGcszTrtu8XEoc3X/HozqV
jRmNTNeZFi0lujNywl31NbH6TLduwyCke9lUflHHlhIbnM6b/26ghc1OM1Tl
ZBAnF59a9/WlEnGhp6zmo54GpuvSYfuhSIkw0f9jPkVXHateYubXE4R4192r
sS2YkuD9Z2Hv9s3n1Mqg/Ch5D275K0XirWA+dB7v76JiRcJMkH/zsNZEarAi
MSjI/4EVJXsGV4R67X92r/hJVlFwvhnY8bAtlv7tCoLfAyYmrpfvufeaAuRn
PRf++d8hCoLzqIZtiD2Qar4F8dN1dXdWyyF++NAmE7svD/xeS7qZ44BYPbxe
XGRIDtimPdGiP0aOwBfPFx07YWwf+ocG0gtSFEpu/C5LjGi68t6rq2DPxpt7
Lzginre7wjg2LANsUOLs4BiHeLckPWG9lgyR7uO/kMRSxmJ9XtSoVEoD36lN
n5p2QtzFdjdsH5ESsAgmHcHyqo5HbNLRmZ7NRnzQJLspqkoS8i//4il2wFmS
+PDxckSDmhLGn2CbbxuTAB6x7w3WOyMB7x/jZsENSW0J4urieVTEtksd7Bnm
igMH++qqNbqIE/ji/spguXUDdrffiwE3cK7HXT6L+HOEf3WIjhiRvrifUphe
p+Gka40oQbP+tp6DFs6bRvU37UYcnfrtAy8C8ymdPJY2f04E9A6HtY1vliGW
KJ0QechbAmwkXb650A2x16HQoPgJYeDkRxuvH7qAuFp75s0OXcTvIivpqwgh
otvqO9Nfn7KVdxcC/QdTs9jxSRrw8bT5qtZExFlTvPF7ejTB+62IpRTQHNfE
fOV/f54PFmM/xvCm7i8AW6uJrawcmudT4+W3nMkI10Q8d0FafKvTHLCrVVKI
WPwX4NtCir1PKz8DS1VfsU8eneVfFKy39wl6zS7OLOi8NRkGai4zwGrDrPTO
M9PAQUXZonnVn4DrPTnBBz985FPnS5dZ2K2/7CPoUW26dmO7p4Dbk65z756f
5F8UxG+wWal/kj/Bp9Ynacmt1M2T4xA/WLNWhKY3zqf2e+uiYfsA+SYHj/IU
Nd7zqfUceRWckRk7Cnqu3U8hOiPDwM61EfYlu4b4399fMUzSJNbAiDsI9WtK
zorytAeAAznJ3dvP/QP5y1NTuE3jfcCvpDJT3fb0wvMnRuYE9hDdoEcP2mS0
OXRBvXfNzvb9Wh2gO3I9RWfGXvBNBO9DVaE/V5LXxjcRzE87KTSQldgM+tJF
g1YP3PeAzg13fcxfs8hzFr76e+y2vuNDvnhTrO7Z5WUwfnbLg89YQgasb09q
cmFhQgZGnTc1fMYhf3kZRp2PsMz6sL3v+Bg13uFTDg7nXB+DfvWa6VufinqM
eh4ff6VqTmIz6AtR4mIKvDbQU9Pm7BfGXmDUeq0uHc8Y0eoA/XFdf1+7Qxdm
vTgfGnZrdDT1LdEN438JG+Tu3dML8VYifd0t431Q70rya9Ed5/4BfsN8afBA
ewCjnt+wuMXehDuIUft/cm1DyK1dQ8C11U8ydEeGMWp95K0f8rJiR0Hf21rd
p6zxHurturVX5LH7B4gn3WSqkN44xOeYuuqbT47D/LdFtXLD+BMYdV6HHznY
lZ+fhPlekm7sfr97CuoZO+4MNlz2EfJfp/4h6vsBcUzntvT86k8wH33tWoOu
M9OQ3+SL1zBcZmA+oTdr7F04s7DfrEnT3oujs6A/MKkIqa/8DPm+EUbiEvFf
YDzZursZPzjNgV4muWZlpOY81Ntjf5NXNTQP+tcUA8dP9xeAi9qv9a2N+Qq8
/KIS974eDad4Zp1jbFsi4r+eJ9tOTNJwqn52WCNdwV0Ip34vAlmy3eTvMbAl
b+f1nbrCkK+6/1yQ3wVhyB9a8ufmhAmk1xSLixa5LQH9os32RvJ7AfqBkdi0
7mUiOLW+G5Nr9y2cE8Gp901ynbCB+rgITp33zjZ8kvxegX7rZGT17hpRnFq/
00xeXKiOGLBLzZzdlbNiEL9i32a1O++R/kX4VA/5PRWMT8MaiypujHDFcer8
5FlPB0tpS+Ajgu91yLCR+YozEqB/+xxsH0P8zb6S33uIH20dT4+ukgSdOLHG
K4ctBTrpVgxr4qXwFIFf8Km+OUX6DRxf9M9LsU2eIzUzTtKgywgbJtArEb8p
9HPYoCUDfNfqV4ZTnAw+KPA7cUP9vaQfwik/5Za4vCTRURb/3j+oYoZrvEN/
+10Wp/zVQku+xZ8acqA3h/aID8TIgV6oxm4m/RrwSa5HpraDPPAOj6wD+H15
nPKPybSj9H/JKYA+4yj7hfSLOOU/vQpK3pB+Eqf8519TO+tIvwm60beGph1x
dtq5RNKvAku80w8i/SxO+eVA0z9d04IRd5w/tLm4GLHla3H2vVeKOOWfS1df
E6mTUYJ6qlHb35F+G6f8dHTzPw2kH8dNBP59SDvuLunXQXcOWZZG+nnQax7V
/kz6fWA91QP7NLClEH/xkPC2lUFLcarf+FyZp7+5aCmc/wPSW+R2vETc8J/u
CbIfgfiNpZEvyH4FOPerZjXZz+BUvyPpyMsl+x38oaA/Cs7/MY7sh3Cqv+qc
nPMj+yWI377tqt1dcxWc6tdId7D+wXGkMwbbVZ8VqOD7BPM5venUHNmv4Q8F
/dvIOUYP2c+B7tJZ8Yjs9/ChxfO3HOOtcrtB9oOgr4icTiL7Rbxf0M9eepYa
TPaTONUPfuFsdDORVMWrBf2qd/BzMyszVZzqNxvrQjiux5BuTFcWO5ivCvXy
fMuGyH4Xh/620qmJ7Ifxy4J+OURqoozslyH+9d5L6WQ/DettdXNNONlvA3+7
PuC1oXimw7HtDeIM3FRwHxCTJ2fYacrAqfuN0Ymb8sNHGBDvamk7NZvLwKn+
nfhl5KVEGwPq6w+cr1EVZ+LU/cYVE8N8XVMmTt03zJ19Gm90hAn5Ph1+AZa5
iJtWSjrsakX5myJ+3eAlxoL55DdZMQI3IZbhDMxHHmZBPOnOe5NykP6mdvmT
rBakW6s8+q1EVB30uz7eF7kmiFkVS0KfBiCOkyzY8yob8Zj7VovBZnV4XreS
Hu1pEQ2o/2CeNDAmGjh1P2Vozx5RDtDAqfuolFz+M51spC+Me9xb14zY94eF
jC0imsDNKVkRDsaaOHVfZtpvdsDTH3GhcafV0SzEsmd/Xhn+DPHJdqbihSVa
UK/bsOpj5kYtXE5wf7gjfE/7dT8tnLq/K2uc4VVc1cKp+0UNdnrBkyYtqFdb
wbIMEGKDHrY/4P4Ek417ifJ+3HZtJbZKirvi1AY2jNdzV+p/QnZs3Fugp+51
lz3ry8aTFn+vVmE7RW5EKkSjerSbs+NpmSi+3MXGW6sc1fNbSP+7uIEN6695
bdB69QDiVtKt3aNx4PkSZhJWmTM5MH+zvBc5des5uI+g/riNntK/bTmwP8UT
J2JbfThQz/1/jz+5R3FgfHlLul9vBqpXN3Kww6+MA78HP/1yz3a8HumrLESJ
sH7E/wfSVe+D
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAxUHW+f//IcAOCgaSllgzP+gVSy6W
/iHAgFPb56xWMz8K6r9iLP0hwPKcsD3DVDM/UJKpy1j6IcDUL1vp71AzP9vi
fJ2x9CHAnFWwQElJMz/xgyNBY+khwCihWu/7OTM/HcZwiMbSIcBAOK9MYRsz
P3VKCxeNpSHAcmZYByzeMj/NaVSKfkMhwBxiV3V1WTI/qzZ/fu/nIMB0R0RT
it0xP8Z+nDosjiDAWqheeQ1kMT+J3c1MzSwgwISoJZhE4DA/o9PBv9ujH8Bc
ktomR2UwP4UZEJLl3h7A+TZ4XPu/Lz/fVUP0hh0ewE1AlvtEui4/Ru05WCdp
HcABHZB6JcYtP/2xWGiQpRzAQTjj6m29LD/B0Tp6+O4bwN0mEjtNxis//ucB
HPg7G8CRDJwbCdQqP4sr8WnAeRrA0zB/7SzNKT8lyqO5h8QZwHMoPp/n1yg/
D5Z+tRcAGcCfXlZCCs4nP3JYPkE/PxjA4YvJdQnJJj/idcHOZYsXwIOMGImf
1SU/osBsCFXIFsCxy8CNnc0kP29m20NDEhbAPN5EcjLXIz+MOXIr+kwVwFMv
IkgvzCI/IgPuokiLFMCDd1quCMYhP8UnLRyW1hPAEJNu9HjRID+4eZRBrBIT
wFTat1eikB8/uCa/aMFbEsBCNUqGgKEdPzDKzh9uqBHAXn6S1Re8Gz/5mgaD
4+UQwJZEjQd/rRk/z8YB6FcwEMCIsT/5E8IXP+s/SvIp1w7AlpukzXitFT8p
31o001QNwNJzv8KWohM/gTTyeXrsC8DI8pF34roRP3rk2RezZQrAtN0tHvxT
Dz+MSki56fgIwEgjp8yOeAs/j52Aek+TB8A8RYy8k7AHPzNLCZRGDwbAZGHW
cTiWAz/xrhixO6UEwASWH01xhP8+T214JsIcA8CkXVxBsTf3PsfhXp9GrgHA
WIDvaFDv7j4wQw84+kYAwNBtq6kOet8+c/4fUn6C/b8ANwU2VdiXvrniLjsE
q/q/kNR4qh4h4L5AfN7UrJb3v0rL1sp9ZvC+qu8hrrOQ9L+Mc5m9h5X4vkfP
co62vvG/dMC+WO0bAL9LyMg+uF/tv+3MSw13PwS/b8rGbvup57/yi2lCpRwI
v1mA7B37EOK/mG4bNmHmC7+KQadcgPzXv4QrNLI+ARC/XWZWM/VNyb8D+aIJ
H+wRv/7KsmS96Mi/SGYm5670Eb+gLw+WhYPIv47TqcQ+/RG/5PjH+BW5x78Y
rrB/Xg4Sv2qLOb42JMa/LWO+9Z0wEr92sBxJePrCv1bN2eEcdRK/H/XFvfZN
ub+poRC6Gv4Sv2K+fiCHg7i/7g6Ul6oGE7+mhzeDF7m3vzR8F3U6DxO/LBqp
SDgktr++Vh4wWiATvzg/jNN5+rK/0wsspplCE7+kEqXS+U2pv/x1R5IYhxO/
KqUWmBq5p79B48pvqI8Tv7A3iF07JKa/h1BOTTiYE7+9XGvofPqivxErVQhY
qRO/rU1j/P9Nmb8m4GJ+l8sTv7pyRodBJJa/a03mWyfUE7/GlykSg/qSv7C6
aTm33BO/wMPfTwxOib87lXD01u0Tv9kNpmWP+oK/gAL00Wb2E7/lr9j2JE55
v8Vvd6/2/hO/MIjKRFZOab8K3fqMhgcUv/RxJez4poi+T0p+ahYQFL+sH1sf

      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVxXk41HkcAOAhZjDKMZZhXF9ylKN+Y1KD5vPpYrVWrWIZEtaRFFta7LOT
nlzpsGld+2SIDk092rRFlnZ+PUbJtqRjU2hpyRGjFDFCu/vH+7wkKikgRp3B
YHz5n/+f3Gc3NlOVK1Kvfvks1Z5FN2VV+vPKYmFni8axQFMWnVp9lfFamgK3
/nHwdNNl0QG360IeSnPgO9PEsvEJJg2bPZh3pMUwnDMbGfM7k3bXk/TIpVXQ
FskZDdjOpK9NSFsapXXws8mmeZcMTfpNlMvaBuldcM2UkYEXi+jcu/trXfM7
QbtcMF/qz6DjinS5WodfglfoXyOJ0yq5grMmyMtiCDqVc7Ws5PdyqYONm5Ob
EmR64VuSmobluddmGKe+nQAtlyfejdadcrXT9M34rEnoK68adRmoFZXI3rkO
HJ2GiM6e6At3+0Szm7lnokJnYYZVVureqxSZrykLl8fPw5jReYWf9gdRdtgx
tp4NAyNu2amtvjwn0lk516KXq4b8mama3kI1eCOzcD6kuwhz2gv8g3ma0JBQ
f+JtigZa1rC27o3RgoHH6kUdnzSR6V8nd//ABostmQcPH2ahO58FW1L0YK3R
wSjBiBZ26pcYqO8wgFvp9m8Ck3SwYdCnwd2GA8TNN+37bjZCU3+hsNUIBk/w
LrFjF6Pyo3lVcYEx/KaybUgcWYJ0sAOWBnJB+OxRf/wyfXRrNNdNVJmCd06C
fJtSHx/+cHVJ6W0eeD/HEtF5AzRY77KhON4C2ldRfae+NsRUJwlDqGMFmjEq
ibkZBzOEglmzOGtYIVwwkT3gILfPKo/hQUC7r4uZUGiEzavEngWWNrA7/1FM
ceBnqG4xf0W1YAP0K6aiSdsYDY8UCX06bEGxmHPAvs0YBRWSvnXXl0JDV6jt
8UwTdPQKqbA9YgfCa/T6YHcu1sSXL30eZA9x4o+1YTNc3OzNb/Zc4wBHZckO
UVdMse5CoyRbxxHErYqx8n1m6H6jYKtk3BGsTm6t6XHkYc6myLVixTJICJ/p
z+jh4Z5dJePswuUQx0hLiDhjjtEe5o27U5wgyEcwIQq0QOeTxRU1vs4wGXHv
j+1mlqhVsLPynKsLmGWlGj3utsQ0x1Oxu/Vcwc3vm7CAfCusx/qN3JeukJ7M
kWgst0ZdLVdRcvMKCC3g+EZkWyP3kp9M7LcS5lYT/7d/W+P74rqCmBsrYeqO
2TwPCYb0tOj62FGwq4rvdO80QYf+bYbSHyl4Ktirs0NKsIHdErs/n4INiosj
E2UEvxB4NH7+EwWWfeYyXiXBpGzr6KkiCp6YsuySLhKsc1DW+pdRAHndlsY3
CG7ckxOiVk2B8YEsw+g2gpFT9RWxrRRkqdMTM+0EJy2cp7zuUzCRr+rI6yCY
7X3Gl9NGwZ9XEk/efEzwUkn2O7qDgoyhYF12F8G3woCNps8oGBe7MH8dJHgo
fXTo/iAFYSNxr7yHCRpeDPc6O0xBa+rZ5u4RgucePMxPe03B+UKTTE0lwRbr
eqHdOAXidjVGyHuCSxRZx9OnKLgX5tWrnCRYOTrdu32aglWjKfKMDwT5RgkC
JxUF+lpjkmoVwaCYr150zlFwsNg+bN1HgkN5zdQvCxS8Xhrp+XSOYFrd6pws
Bh+Cr5eaJSwQZPde7hKr8+HOuqeqT58ISlmWKygNPvwL0osYQA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  Method->{},
  PlotLabel->FormBox["\"0602\"", TraditionalForm],
  PlotRange->{{-9., 8.95014}, {0, 0.00022244334}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306410271893`*^9},ExpressionUUID->"dacd5a65-2518-4346-974b-\
9196f94b7bd4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.7208390948181301`"}], ",", "0.6990793871696085`", ",", 
   "0.7099592409938693`"}], "}"}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306410311995`*^9},ExpressionUUID->"1f8d36df-ce9e-44d2-9baa-\
33ec4ec43dbf"],

Cell[BoxData["1.031166789446177`"], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.704130641033204*^9},ExpressionUUID->"23b9f38a-e2ee-416b-8107-\
6e937b19b813"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxFWHVY1EsXplm6Y3dZdhelQ1AUJHZGQRCRVMoWQcBCKRElVBBEEINLqUhY
CCoSXpTYUQHjQ5BQkZK4iqQSKkh9O1527/6zz3nm1JyZ35z3PXRPf2dvHi4u
Lj9uLi78/+9PBfkyvIRq9+sDW7fCxNAvdLS/wei9rbM+SL2/izxWR0cqA3Gh
TzL1QS+/VJ5f8X+y7vanq3rT6ShrPpYg7WQAQkuOVG+JoqMfZzQtYIw+qBZR
cW7eS0dNnh40zSF9ILGn6ZOtHR3NlIpoYHnLk1MHq1fQUefle/33G/XBTakV
M2YkOuJxTVDB62O+fXGlXHRUaGBfZFimD8zQZXm9fhrqPBNwtdFYH8QqWN64
9YaGJFW/ceP4TYcmDaglNHS6YfQEzk+59gYzNYOG3EUyd+byGQA/ioud5Eka
knn0rD7VyACUBPG3x/nQOPtZ+F+pL7c9DSWKRSRRlA2A7ZK9P48Z0jj1SQmT
jx4n0dDXv2v3uFH1QU9jrdR+bhqK9/c/iu09nEcZLxqo6OBBq1G8n29cDlvK
rlJRzeWfENfjzIMHwXl+VDTo8u441lfaIXkxYxUVXbgoL4X9F4seKTjHS0WK
+dPe2L9NeeOLE2+VUduPzAZ8Ht1+y/sOXlNGU/uVJ/PIfYwQxcvzO/Ypo7jG
XTuxvtiLCaKjkTLiKgsXxv5ygzevXMOnjJpdlN9he5OlpY7LGyloqz+3Vie/
PnjbJHdgSSYFhWeJpuF6+pwMiZXdT0GbGqKW4fW5ZR9y+I0piFYh1SQfpAeS
u4yqfvJRUNdi/bUS0z72Nyoh9y7d7Tj+U9PpydZMJXQANliL3NYDboMekq/3
K6HfK7r+qWldBkbTnmiXGyshstmb5dh/tDXZuoBfCcmX6Yp1BiwD5J/HPa81
kZFb49BBlTV64OGNjvDz18nItUvt8cJHPbB+k3l65AEymln018WdWXJ4NRm9
JQQcXd2uC4IL5xt2C5DRLNHXHscX2blzyLmZhC6p9K2eFF0GcsSQgGUWCT3M
+bwEy8YVNJWVB0koy58a1nhzGWjYd9JczYSE1l8cDMXxvYm97gqCJOSlvWe6
g5Xf7Iu1QYQWIipctL8Ukps0nUXk6Guq8uUPHiRy8mE2e9W2mxDR3MLY347B
usD1VE1PnSARHdUyD4kP0QHD+mpzlS2KqCjOPxHrn/50RvFBtiIStdOb0hXX
A8Tz/SuyDimiEMti0XV3dEGh2XqHi6aKSClqMhv7sxq6s+8UQRFR9kaIpFjo
gM50oTOB7xQ4cuD6fdleOQoodDGe8K/XFS7+/61n3dRutTJTQAE9//z+0qUF
jDYnTBgJKXD8v+EZEdd8L49it/PS7nVqA6+HdlqkXHmU0+O8vvqoNvi98/46
kcPySJrwZA2WL4pL7J41k0fHeBOSx/O1gHql/4kRIXl0R3KlLrav2v82teu9
HGd/m0kGxQ25ckjR6KoaXh96ebEeHZZDuumWpWV3tcHJo+MDD83l0F6+IgW8
f0W1Tfy5wnKc/O+3FNOSP8ii25TDoXh/607LmsXckEW+v0LqfCR0QbtBsFvI
EVnkXl2ogu0Dut8F+DBk0faEo39j/4SkVefdRWSRc47QWVz/6+apeTatMhz9
lcO/qk1uyqCXb7NjsP+6DPdu7QAZVOCReAfXx9Pm8YwSkEGqIxSNv23UwfQv
ooK4qAz6/pqwpr5PDSTdClu+0CqNaFWmFlhWc2m3+35TGrkcW9m25stSUMFr
5tcTII1+xCTHe9ktBZuKrkY3AWk0ZmYm8bRUBQzsmrv+XFQa7fCufUfrJoIo
iR3lJR+l0El924Lj/UuAfFXV+5u3pFCP/MNCLN87QB1PCZRCx9NLRaWd6MCC
HCUWB6XQboJ2OkWZDtpedWscE5NCU053tn8boIPDoWss97VJIrjdmwfrC6rn
7Nx6WxJZ5e+S6AyggmvveI5vDJJEtPD9UgLRYwzD6D0p5mskUcNI0mPDMhp4
vbz6oZ64JAoASsnY/7NnNhngkQT6/o5InhSlgm9UkUa6owQ6EfXWTOS2MlAK
rxPkGxRHfOvmJjtY/m3aEhlfTosv3n8KCDFyCH5JEUfHMqyaa1qpIDdZsuDu
32Jo/vNxeoqFEng71tib4CSGdkSaHWiXIoM5+8tE/yFRFHf3zkcfCQrQKtjs
6BQjir5qTiSO55OAm5B87AqqKEK2Om24ftF7P1TKPRZBNnnma8PXK4KHz9Mm
fzmLIKUFz3K83kXbot02LIySY9srhKxIQCSC7FlxRhj9HH7Q9rFQHhi3d6Rl
0oTRpqwv5Vj2Ns5siHoihEpGfCQdZIng0l87BfZsFkKZBp9O5J9QAMxxmvm6
UQJybZb7hPWHHXoD1eMISOsZlUD4LAeI93LvCqkQUNbcuMMqohywEvbuGSoX
RLQNn28f75cBgT5qivUugsjilVacQLQUyKruty/8JoAO3R4zbXWQBm/oeTGX
zgqgRwfea1Ij5cDviH0VQUsEkI664jmKshRQ79CecK3kR5MEG8akqATYvHpE
c7UbP5rKtFO4S55gnEzBDZ4PKW0kBLdLzTDuT/inzsXzIcN3uz9H5ImCdkeD
+k9L+RBB6/Xme50igHB/nO9ZFS8qMx6czSPzgpUiJaY33HlRW/CVuesP1IGn
b3DAmXEexK/7sOFjIev+16zK803gQQcE9YnJvb8YFSpTnzao8aDRfyI+xMlp
gIHIx/K6iBsNnR+SJHxWBfKdYXYSW7hRMg0dSO5VBxYmZtFjE1wovhS5fQ5X
A4dT5540J3Jx8r02WTVWqs6FTPzM7MLXa4DkXC4n/dMLTMlzwen5J9TB6PbT
VZOP5pldVROhFtaaYL2igM7jwTnmtEPEsFGYJshpiksPV55jKv/xpw1mE0QE
1zrPMuvTfEnzoVrA1fp8kMCZGSb7/Svklup9/fg3s/6cbgOtWxMIV1x2SBqZ
Zmo4Dq+Wk9ECXiHylZvo00z2eVbpp2spukwxr59jnsTxFYfIaR1xv5gnFhiu
+P4G3Mzkz674yewNr+Ma2yAP6nbSA72//2BSl1/qwvdRjXSjW3PpDya7P0W1
qNmPuk0yz0lkb8P3t+18XnnRuQlm6eL5G9roaB5ljjNnb5suPUxaCs7zPkgx
nRhjXrUL7a5p/cb4WmnAx6U+xvyerTsakTfMWPsHsH1n8sdvKjQs4wLG3oeq
pCjfmLSHXFPfN/xkDH8MTM+IHlm0X2Bk2R8LWjI8xNyQ9CL/mbwg2Pw8wqFg
0yCzqidsDN8HIeNorZXlX5meNroBAtHcoLLgLH+VSj9T/9uH4/j7PkJP6raK
/8x8uc120ChsmqGaklzeMNbHifdROCPF3aOXua+909eueClIjLx+pAd1MzMV
/L7g9ZNfbdJbHLuYtb+cfVTWzDMGGjc7fKG2M+ueWhy0K55kOJXv5J8a/cCR
n9zYVy5U1cK8GnWbt5a1f5XzwUfIiY1MlcV4Mn8AWh1z8k89Zhl9T+XLw11r
mT8F1I7g++qj6WG/doDJfL2Yr2BDtNpZ1WKmUr/EOK5HZtPT3yA2nZN/T0rS
jRux6YBdX0U45ZijWgyOZmaU4vqGZtSFbh1ggu9/8Fsz40CYo2O8ay2YXIx3
9bbJP3vL6kDI6pzl1Eh+sHefdAU9sRGw9zsfJSggWdXC0U9JnXWYH/0ANm5t
j8D71bs/lj5MbQc///ifYNRWf+lrc+wC7P09GBlJ+Qd1c/KbCf1avtWjF7Dr
Y83X19001sfxfzmpk39D/GdwJ0Hs/vF+XvCJ1Kr1VKUfhC7uR/tWk4Nx+VeQ
cF4ixK6YDxw1eBP0YNMgoC1+n88rXqSrDQ8B9nlLrH9WdS16BLDrtbW5ok+W
8o0Tb9ODrXy1W74Ddj9gockUbvUxcJiQ0oHzv27iqmk+MQb+5Qc0sC6quTyU
OQ4ok049vx/RwVCNo33JuQnQb+G39F4nGVwUqe/+5jYJ4iwSz2I8YuRkG6i9
9Adg45XOlJf8Pt9/AEdNaaoxK7/THevScip+guUv1TKyJXWApspzra64XwBO
bZPA9W/wgZVElykg67JzJiJPCQTfq3RwoU+D59nMLKxPnjDpvTAyDRQpahdw
vKfGZUF1j38Dvch6Zfye+ESsFCScmQFT2x4b4fdCrLoo3cJ5ltUX/+2vxUL6
OpHKc2AieTwH+/NwuFf1ZHAOsPHZQrKW089H84D9vt1su91ncHoBnPc2XIL9
q16QLn+kzgXZ8tRyp+iWRC7Ivh//e5dkNz7BBf387mZs6dEAmaH18pJbuGHa
RmkKPq8jZLFu1nsMI/7nrLn3vgawrLLNs1Xjgc91/fgdZDWBwu74AL8EHhgq
oPQKn9cg7yvT2HEemFV0eA+2r7wlyH/TnRc+aqwvwPfjgo1VPatfwJJsDVIk
q5/sGY5O7V7KB7uK23/XtEqAVUnPd83H88FtJMsBLAst59FSGuODbkO+dwzL
JEFHC5xg9Ss42bJNCts/OBpZ4VbJD+sDe/JwfztFqooJXiIA35cNf8kjywCX
yln7y2cFYPTsjkjcLzV2mSo+/CYAs0oGQ2paPzFmeMJ6WP0Uquj7Sz0tlQb1
N8vuDpcLwo3iq2ounZQB2et/BQqrECCMuHMF9++goZXmGnEEyO7/uB1YjRKg
aDt3PdbH8JXV72FeUq4Vfo9HmsfSTj4Rgu+y0ikYD6AQfc/rNGEIFRJtcT9g
oRXtyjPCkI1P9lbcm2ThDfgpdW0qjrd653DllLMINIxdoGN7UR7tWPnHIlC2
5Y0slj/d8HM0pIrCANOaBXz/iqzvEJ1jRCH7e4kZ/NLLwkMw4vNLJu4f7omq
BYlOYlDzbh0Dfw/a+l7B+X+LwW1c9c4Yj8035TBeUcSh+Qq1B47BFNAY3CPY
f1oc/vu9KYEbirRGFl6Dh541T2O8drR8R4aKowS8aUnforJGGWzYcW0PfCQB
3wx4+bpRaSCJ65D8MnFJ2OJho4a/zyknsRkWXoRcnYc+YjznmVvwiYUn4akQ
gSEs/2/StpqFN+Grmeht2H4lJjRt/9lnpsYnsvAqbIvTFsH4lDCgGcDCs7C/
0ey3FEs+YvLKNTVQCvYKhXhn2i8B7ed8TW/dkoJO+p07sGzZKUgr/SgF915H
xrElS8B9vdt81aLScO33dj+8rhBlNcDC27BbX916FVEVnGz8/IaFx6HasRcJ
GI8PqsQUsfA6rCshqOB+ujloaSoLz8N833EvjEcqa54fZ+F9SEry2IFldYU9
uyhABhaaT1pifxd8edbpBMjALGG9KzJFquD342xN05sysPjQ9M+IPB2wR2SN
+IZWGXgfKEhjPvNmW/c4i4/AyoDOcsxPVt2P/MDiK7DMYuZ9g6U2yFpQrmDx
GcjmP0JOVVksvgObRme6sb/AnO0xLD4E3e+aJGC+0jEx68fiSxx7q3VX7YvM
5Tj6LHSw4ulhOaizyLeIX9sU3ubKQTY/PbU6bJbF1zjycDyxh8XnoMeif5eO
shoW3+PkU6XrfpfFByEbT2lE/jrP4ouQ/T5efJsSyOKTkM3/Zuir3I2FFCCb
/3oFvjOzNvtPrq8Oorv6K0A2/jKSlxXwzlGAwwlPr2P+le1TPMjiuzDHJa8P
zyeEHzs3sPgwbJXMDcP5BQmPF7P4Mpxf5N+dWy+msfg0x7/1Pf1wFt+GHR4z
P3A+eHxQ1aII/+23eoDk6G/1RpAITwT+NYbXT2eLa3eYEDn6I+P3JIYOEqF1
pmo1nk+4WtpNTmcRoYDyRhnMH9Ffw62Elv/WNfvPVSoIkuCvzg3KeP2ysXaO
mgmJk8/s2ddnVh5krQ/G+OH4e9v99ltmkaCxrYEgnuc06Ag5bmomwfxAXoDn
G6sj7hh6CpDhWk9CMrbPabAmHllNhtZ/+NsyIErvn4s8QIYpUlsLcXwWOu89
f50Mczz/0cPzi0/PVV9cayLD4YmOb3iesl6uJr+AXwmGZF6WwvZFe70ulBsr
QdMOvhY8PyKX8Qa/3q8Eox4U0bF9jFCux8dMJQi3u1wyCnvFGN2ylvG1UQmu
MIv+iPXdC3pUfvFR4K7MPnGc/9M5FoAxpsDDJ4aPYjyr7UAblt1PgVaL+SZn
Md8uyaRA14NJ1nheNj+2o3R5IwVy5lMW8+lr+JTh62etqng+2Jh8LcLRSBle
+YNPlwGTL2Z7du5Thq5Du/mwvxtGHdaHrilD9nxP7OxxnfC3ypA9HzvaRpJK
4KVCxsHWLOy/W/vJj4xVVLiq7dIYnt9tCPdoy/OjQvY8s7h+qqrsKhUeWpzv
UWhpuS8aqBCK9Jfh+eTzMrLlfm4aJ17o7v2Pxkk0OOgp+QLPG3WFyzXCDGmc
evQUCV/htqdBsdjuAewvZesWsbM+NPj8R78Gno/Z8t2NlDxJg1BRhQ/PN7nu
TY+lZtA451HiYuNFLaFBxTLDhzi+33za+1tvaFA/v1AU+1e+/XW9Xj8NOneU
h+F8mllorZSLDreLSa7F+4mditU1J9GhS9jrS3jeaZb94Xr1CjpHf8xGXXqj
HR2+m9AZwfndGg+Jbt5LhyYDgPpnfnul9ueWKDosq768G8//JCzl/XrT6dDW
zDQK21cPe7f7FdMhe5547K9Su7E6OjzVofnyTz0Y/Cj0Cx1GMciFOP//A1H1
LSI=
       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAxUHW+f//IcADav7c1qk1P+gVSy6W
/iHA3MQAPOinNT8K6r9iLP0hwLUfA5v5pTU/UJKpy1j6IcBo1QdZHKI1P9vi
fJ2x9CHAzEAR1WGaNT/xgyNBY+khwJYXJM3sijU/HcZwiMbSIcAoxUm9Amw1
P3VKCxeNpSHATiCVnS4uNT/NaVSKfkMhwLBzk50fqDQ/qzZ/fu/nIMDi/KPg
8io0P8Z+nDosjiDAqjPjujqwMz+J3c1MzSwgwIgHitQbKzM/o9PBv9ujH8A3
EUMx364yP4UZEJLl3h7A/bdjzTsoMj/fVUP0hh0ewFYMswANpDE/Ru05WCdp
HcCBlhR3wCgxP/2xWGiQpRzAw73dLA2jMD/B0Tp6+O4bwNcauSU8JjA//ucB
HPg7G8D9SoZrv1cvP4sr8WnAeRrAeZppCjlOLj8lyqO5h8QZwJlVcS93Vi0/
D5Z+tRcAGcDnSkjT50ksP3JYPkE/PxjAXZt8pUFCKz/idcHOZYsXwHdX1f1f
TCo/osBsCFXIFsC+Tf3UsEEpP29m20NDEhbAqa9JMsZIKD+MOXIr+kwVwMFL
ZQ4OOyc/IgPuokiLFMABQ94YPzImP8UnLRyW1hPA5aV7qTQ7JT+4eZRBrBIT
wPZC6LhcLyQ/uCa/aMFbEsCsS3lOSTUjPzDKzh9uqBHAh69nEh9AIj/5mgaD
4+UQwJFNJVUnNiE/z8YB6FcwEMA/Vwce9D0gP+s/SvIp1w7AODZxy+ZhHj8p
31o001QNwD50jre3URw/gTTyeXrsC8CMifSvEWUaP3rk2RezZQrANhP5pdBO
GD+MSki56fgIwCZ0RqgYXBY/j52Aek+TB8Bmi04HM3MUPzNLCZRGDwbAABf1
Y7JgEj/xrhixO6UEwOR55My6cRA/T214JsIcA8BDouRmULIMP8fhXp9GrgHA
Tf+RTD3ICD8wQw84+kYAwPPItOvO8QQ/c/4fUn6C/b9RexSGKsgAP7niLjsE
q/q/ergLcjDL+T5AfN7UrJb3v75LaM6fX/E+qu8hrrOQ9L98cF87sTbiPkfP
co62vvG/oB2o4VlTtj5LyMg+uF/tv2iMA6xl3du+b8rGbvup57/g1fGFiIvt
vlmA7B37EOK/jRkGqOVs9r6KQadcgPzXv7t2mRZzuv6+XWZWM/VNyb9muwQq
7jwDv/7KsmS96Mi/Ao0dVjpOA7+gLw+WhYPIv59eNoKGXwO/5PjH+BW5x7/X
AWjaHoIDv2qLOb42JMa/SEjLik/HA792sBxJePrCvynVkeuwUQS/H/XFvfZN
ub/s7h6tc2YFv2K+fiCHg7i/iMA32b93Bb+mhzeDF7m3vySSUAUMiQW/LBqp
SDgktr9dNYJdpKsFvzg/jNN5+rK/znvlDdXwBb+kEqXS+U2pv68IrG42ewa/
KqUWmBq5p79L2sSagowGv7A3iF07JKa/6Kvdxs6dBr+9XGvofPqivyBPDx9n
wAa/rU1j/P9Nmb+RlXLPlwUHv7pyRodBJJa/LWeL++MWB7/GlykSg/qSv8k4
pCcwKAe/wMPfTwxOib8B3NV/yEoHv9kNpmWP+oK/nq3uqxRcB7/lr9j2JE55
vzp/B9hgbQe/MIjKRFZOab/WUCAErX4Hv/RxJez4poi+ciI5MPmPB7/fW1Lz

      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwV0Gs0lAkYwPFxm9wv0RgzDK/LuEvmfVPSPE/qsEi1hRXTZe2GKLJEW7RL
iCLalGKkOlZyUmkToZk2ESmiotDGJu2IMlEZo7G7H/7n9/1PhMdt3KFMo9EC
/ut/p+Ntxmcqsvn+KcNrvUZVxXczzq9jl0bApw6V+jV9quLky1dpY8IkKGNz
rXzaVMUb79zc3C3MgqmGaJl/laoY/DzoLcJTUCyb+j0oVlW8VC9lUCSsgLEk
+nzUZxVxjVR4v1F4E7LjHWvy6SriD+HOKxuErdAasXfRS66SOLv1p1qXgj5o
UidacpxnRZEntZnqacOQd/qEBa/oo6jZcFmwp9lbYIZFVI0HjIqEtpY8R94E
uHprFAmr2kTZNTO043uk8KtZT/2z9m6+UrG4bmfGNJy+kPzwG3cJv6jyo8tI
zhfQZjAyb52d5s/6McvCw2bBjn7j72njOb7pstKtop1fgd52nu1vogyZgiNa
epY0rAj3f3NlWA00Xefu62Ur4ZX9W++qFWnAh0ozp1+0VVC4baxYr1QHGmLq
cyeTVJGts8uXcVUfRp4on3w8r4YvNpivVtQtBLP1h1LT0hZgwKbDrdvqjGCl
UWo4KVHHYjz3wq+QAU0HuR+C4jQxuHBvdP4ZJhA8330/D2jhWI/8yJYUFozm
si9pRejgZDLfPvOwKdySWTXESnSxaoD6lpvDgeXPe17vtNdHzqK4DDvSAryz
YkSbJvTxXBxRNuZOgPcLLOKXG+AxuJwW72AJndSSoePfLcS+WAN7imkFajtk
KaYsQwzpDsy3YVnD4uUK48ouQ1xzac/tfk0b0Bjqp8cUGmH0jeiqJj0uRBf0
7DgVtAjHOCAY0LMF8Rt6810NBvYq3j0TKWyhWccwkfuIgXKDZN0uJXto6A+z
OnrIGI8U9+uWT9nD8hqxV8hSJialM5/WDjlAZKi8VjDDxNOlZMj0sCPkVCbY
hleboJ2LffmXbicIbW8ePxvPwkmp/IptrzOY52+4NmjHRmvHi2mm7S4Qs3Xm
dfogG683O5msq1sMkbR9MdvLTPG2T5t7r8AVgn1IKT/IDIOjRlsjn7nC9Pa2
B4EsDuZeSKjVC1kCrIxkoycDHIzTjqUHP18CvLU/CDYWmKN6TWCjYr0bHEww
TFF1sMCVcVVdt7vdIOyEoe/2TAu0jRr3eeXHgzl3Yt3kXxYoKiixLPuTB59a
WF/ZSODHnluCvV4kRFW4ObYVE/hy/b3Z6gYSesndmluEBL5PbH/Q2kTC6uaL
EmkpgYozncWvRCRwhkwr2ecJ5Iw89zBoJuGpyQKbuIsEbts3sT+xgwTIG+Aw
bhA4fI4h9xgkgZGYsfDHRwSOSKPk97+SkKEsls50EviJEdsxNE+CtED2OO8x
gWqeCSUyJQoeVsfm1z0h0CYrdYUjnYL0tyHaWv0ERrJ+O3BMl4L3oc7066ME
Srwa5YHmFAgkkW+8/yFwNvJOx26CgvbkC/cGJARq5rWUZFlRUF5ofEhtgkCH
vq4V9bYUhHYq0TZPEbgrZuQA25WCNoHnq4lpAlMLJP6kGwXUuyRR+mcCc2vf
swNICvTVx1Muywisnp9pPLiMgtRTXMEqOYFN1oqjRR4UjFl/v6J3jsCHviqC
a54UhPxRwopR/PczVt2pnU9By6pe2fw8gRMndOaGkYJ/AfeeJvU=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  Method->{},
  PlotLabel->FormBox["\"0823\"", TraditionalForm],
  PlotRange->{{-9., 8.95014}, {0, 0.000264231589}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.703982641335151*^9, 3.7039826707683973`*^9}, 
   3.703982703202598*^9, 3.703982811382161*^9, {3.704011230881357*^9, 
   3.704011254689807*^9}, 3.7040112947212415`*^9, 3.7040113354925933`*^9, {
   3.704011394743104*^9, 3.7040114016835546`*^9}, {3.704011437697298*^9, 
   3.7040114710840464`*^9}, 3.704018463480751*^9, 3.7040185238778067`*^9, 
   3.7040186434867983`*^9, 3.7040187042725368`*^9, {3.704018737891447*^9, 
   3.7040188363280897`*^9}, {3.704018967932846*^9, 3.7040189925237007`*^9}, {
   3.7040191023386345`*^9, 3.704019144074977*^9}, 3.7040192502436404`*^9, 
   3.704019389961712*^9, 3.704019424813282*^9, 3.704019551084648*^9, {
   3.7040196002223763`*^9, 3.7040196502828665`*^9}, {3.704019775575699*^9, 
   3.7040197908250484`*^9}, 3.704019837341084*^9, 3.704019871124683*^9, {
   3.7040199628349915`*^9, 3.704019984556703*^9}, {3.7040201138387933`*^9, 
   3.7040201548361716`*^9}, 3.70402193274619*^9, {3.704021986736272*^9, 
   3.7040220198840537`*^9}, 3.7040226576785917`*^9, 3.704024982100706*^9, {
   3.704025047824073*^9, 3.704025073572937*^9}, {3.7040251036827564`*^9, 
   3.704025139673236*^9}, 3.7040271560439577`*^9, 3.7040273807086935`*^9, 
   3.7040274452224836`*^9, 3.7040300806493073`*^9, 
   3.7041306410753174`*^9},ExpressionUUID->"963bc187-132d-4e62-a0f6-\
3fb9dca25f33"]
}, Open  ]],

Cell["Genertate a (B,\[Mu]) list of all peaks in the dataset", "Text",
 CellChangeTimes->{{3.7040274614240975`*^9, 
  3.704027480094575*^9}},ExpressionUUID->"6f9d19b9-edc7-4109-b7ed-\
7018cc5099b9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"peakData0503B", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0503B", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0503B", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0503B", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"lineSet0503B", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"peaks0503B", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", "2"}], 
             "]"}], "]"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"peaks0503B", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0503B", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peakData0518E", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0518E", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0518E", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0518E", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"lineSet0518E", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"peaks0518E", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", "2"}], 
             "]"}], "]"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"peaks0518E", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0518E", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peakData0531D", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0531D", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0531D", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0531D", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"lineSet0531D", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"peaks0531D", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", "2"}], 
             "]"}], "]"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"peaks0531D", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0531D", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peakData0602A", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0602A", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0602A", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0602A", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"lineSet0602A", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"peaks0602A", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", "2"}], 
             "]"}], "]"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"peaks0602A", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0602A", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"peakData0823F", "=", 
   RowBox[{"{", "}"}]}], ";", 
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{"peakData0823F", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"peakData0823F", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"b0823F", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"lineSet0823F", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"peaks0823F", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j", ",", "1"}], "]"}], "]"}], ",", "2"}], 
             "]"}], "]"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", 
        RowBox[{"Length", "[", 
         RowBox[{"peaks0823F", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "b0823F", "]"}]}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.703982190067525*^9, 3.7039821934655433`*^9}, 
   3.704023108912174*^9, {3.7734939191645317`*^9, 3.773493919180574*^9}, {
   3.7734939599047427`*^9, 3.7734939599258337`*^9}, {3.7734939908112345`*^9, 
   3.773494040391094*^9}},ExpressionUUID->"5449867f-d1b1-4cbc-bfad-\
7f19fe49da14"],

Cell[TextData[{
 "Physical constants and the energy functions used in fitting ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["m", "y"], TraditionalForm]],ExpressionUUID->
  "c3a7acbb-51b2-4fb0-bfe0-4385371ed3a5"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["l", "y"], TraditionalForm]],ExpressionUUID->
  "eacd5746-e2dc-40a9-8d06-bea00a76dcb0"]
}], "Text",
 CellChangeTimes->{{3.7040274872494555`*^9, 
  3.704027510834262*^9}},ExpressionUUID->"e8da34e8-5696-4dea-808d-\
ab0490ebbab9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"hbar", "=", 
   RowBox[{"1.054", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "34"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jtoev", "=", 
   RowBox[{"6.242", " ", 
    RowBox[{"10", "^", "18"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"me", "=", 
   RowBox[{"9.109", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "31"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "=", 
   RowBox[{"1.602", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "19"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Omega", "[", 
    RowBox[{"my_", ",", "ly_", ",", "B_"}], "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"hbar", "/", 
        RowBox[{"(", 
         RowBox[{"my", " ", 
          RowBox[{"ly", "^", "2"}]}], ")"}]}], ")"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"q", " ", 
        RowBox[{"B", "/", "my"}]}], ")"}], "^", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ener1", "[", 
    RowBox[{
    "g_", ",", "my_", ",", "ly_", ",", "Bp_", ",", "B_", ",", "x_", ",", 
     "y_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Abs", "[", "B", "]"}], ">", "Bp"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"jtoev", " ", "hbar", " ", 
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "+", 
        RowBox[{
         RowBox[{"g", "/", "2"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", "B", "]"}], "-", "Bp"}], ")"}], " ", "5.788", 
         " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], "+", 
        RowBox[{"1.5", " ", "jtoev", " ", "hbar", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}], "-", "y"}], ",", 
       RowBox[{
        RowBox[{"jtoev", " ", "hbar", " ", 
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "-", 
        RowBox[{
         RowBox[{"g", "/", "2"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", "B", "]"}], "-", "Bp"}], ")"}], " ", "5.788", 
         " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], "+", 
        RowBox[{"1.5", " ", "jtoev", " ", "hbar", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}], "-", "y"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"jtoev", " ", "hbar", " ", 
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "+", 
        RowBox[{"1.5", " ", "jtoev", " ", "hbar", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}], "-", "y"}], ",", 
       RowBox[{
        RowBox[{"jtoev", " ", "hbar", " ", 
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "+", 
        RowBox[{"1.5", " ", "jtoev", " ", "hbar", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}], "-", "y"}]}], 
      "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ener2", "[", 
    RowBox[{
    "g_", ",", "my_", ",", "ly_", ",", "Bp_", ",", "B_", ",", "x_", ",", 
     "y_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Abs", "[", "B", "]"}], ">", "Bp"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"jtoev", " ", "hbar", " ", 
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "+", 
        RowBox[{
         RowBox[{"g", "/", "2"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", "B", "]"}], "-", "Bp"}], ")"}], " ", "5.788", 
         " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], "+", 
        RowBox[{"3.5", " ", "jtoev", " ", "hbar", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}], "-", "y"}], ",", 
       RowBox[{
        RowBox[{"jtoev", " ", "hbar", " ", 
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "-", 
        RowBox[{
         RowBox[{"g", "/", "2"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Abs", "[", "B", "]"}], "-", "Bp"}], ")"}], " ", "5.788", 
         " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "5"}]}]}], "+", 
        RowBox[{"3.5", " ", "jtoev", " ", "hbar", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}], "-", "y"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"jtoev", " ", "hbar", " ", 
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "+", 
        RowBox[{"3.5", " ", "jtoev", " ", "hbar", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}], "-", "y"}], ",", 
       RowBox[{
        RowBox[{"jtoev", " ", "hbar", " ", 
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "+", 
        RowBox[{"3.5", " ", "jtoev", " ", "hbar", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}], "-", "y"}]}], 
      "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.704020366743823*^9, 3.7040203954747972`*^9}, {
   3.704020426294446*^9, 3.7040205082883186`*^9}, 3.704020681931072*^9, {
   3.704020918016292*^9, 3.704020920484854*^9}, {3.704022905477339*^9, 
   3.704023050352474*^9}, {3.704025209646699*^9, 3.704025209833193*^9}, {
   3.704108258439486*^9, 3.704108265747225*^9}, {3.7041092277187443`*^9, 
   3.7041093602494106`*^9}, {3.7041307713315907`*^9, 
   3.7041308085365143`*^9}, {3.7041321746320324`*^9, 
   3.7041322196086307`*^9}, {3.7041322723458233`*^9, 
   3.7041322743140244`*^9}, {3.7041323448585596`*^9, 
   3.7041324038193007`*^9}},ExpressionUUID->"3fdedb76-0a46-4513-9cb0-\
95c0074acc0f"],

Cell[TextData[{
 "Plots the spin-up and spin-down of the lowest n,m band to fit ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["m", "y"], TraditionalForm]],ExpressionUUID->
  "752fd365-5344-49e2-ba7a-a7a56c70f250"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["l", "y"], TraditionalForm]],ExpressionUUID->
  "29025814-47f1-4f22-b0d7-4a1c35c0041d"],
 ". These values must be adjusted by hand to fit the data. The final plot was \
not able to be fit due to the large negative shift in the chemical potential \
requiring an additional parameter to be fit for the model to work."
}], "Text",
 CellChangeTimes->{{3.7040275251727133`*^9, 3.704027605744583*^9}, {
  3.70402763932942*^9, 
  3.704027675174964*^9}},ExpressionUUID->"fcc48623-f424-460f-baf2-\
56922b509f17"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{"0503", "B"}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"my", "=", 
     RowBox[{"1.2", "me"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ly", "=", 
     RowBox[{"1.1", " ", 
      RowBox[{"10", "^", 
       RowBox[{"-", "8"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{"g0503B", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", "=", "0.00015"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Bp", "=", "Bp0503B"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"label", "=", 
    RowBox[{"StringJoin", "[", 
     RowBox[{"\"\<0503B: \!\(\*SubscriptBox[\(m\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"my", "/", "me"}], "]"}], ",", 
      "\"\<\!\(\*SubscriptBox[\(m\), \(e\)]\), \!\(\*SubscriptBox[\(l\), \
\(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"ly", "/", 
        RowBox[{"10", "^", 
         RowBox[{"-", "9"}]}]}], "]"}], ",", "\"\<nm, g=\>\"", ",", 
      RowBox[{"ToString", "[", "g", "]"}], ",", 
      "\"\<, \!\(\*SubscriptBox[\(B\), \(P\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", "Bp", "]"}], ",", 
      "\"\<T,\\n\!\(\*SubscriptBox[\(\[Omega]\), \(z\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}]}], ",", "CForm"}], "]"}],
       ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\), \!\(\*SubscriptBox[\(\
\[Omega]\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{"my", ",", "ly", ",", "0"}], "]"}], ",", "CForm"}], "]"}], 
      ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\)\>\""}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"peakData0503B", ",", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "label"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener1", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener2", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"0518", "E"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"my", "=", 
     RowBox[{"1.4", "me"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ly", "=", 
     RowBox[{"0.9", " ", 
      RowBox[{"10", "^", 
       RowBox[{"-", "8"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{"g0518E", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", "0.12"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", "=", "0.00012"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Bp", "=", "Bp0518E"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"label", "=", 
    RowBox[{"StringJoin", "[", 
     RowBox[{"\"\<0518E: \!\(\*SubscriptBox[\(m\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"my", "/", "me"}], "]"}], ",", 
      "\"\<\!\(\*SubscriptBox[\(m\), \(e\)]\), \!\(\*SubscriptBox[\(l\), \
\(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"ly", "/", 
        RowBox[{"10", "^", 
         RowBox[{"-", "9"}]}]}], "]"}], ",", "\"\<nm, g=\>\"", ",", 
      RowBox[{"ToString", "[", "g", "]"}], ",", 
      "\"\<, \!\(\*SubscriptBox[\(B\), \(P\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", "Bp", "]"}], ",", 
      "\"\<T,\\n\!\(\*SubscriptBox[\(\[Omega]\), \(z\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}]}], ",", "CForm"}], "]"}],
       ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\), \!\(\*SubscriptBox[\(\
\[Omega]\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{"my", ",", "ly", ",", "0"}], "]"}], ",", "CForm"}], "]"}], 
      ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\)\>\""}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"peakData0518E", ",", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "label"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener1", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener2", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"0531", "D"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"my", "=", 
     RowBox[{"1.4", "me"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ly", "=", 
     RowBox[{"1", " ", 
      RowBox[{"10", "^", 
       RowBox[{"-", "8"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{"g0531D", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", "0.19"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", "=", "0.00017"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Bp", "=", "Bp0531D"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"label", "=", 
    RowBox[{"StringJoin", "[", 
     RowBox[{"\"\<0531D: \!\(\*SubscriptBox[\(m\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"my", "/", "me"}], "]"}], ",", 
      "\"\<\!\(\*SubscriptBox[\(m\), \(e\)]\), \!\(\*SubscriptBox[\(l\), \
\(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"ly", "/", 
        RowBox[{"10", "^", 
         RowBox[{"-", "9"}]}]}], "]"}], ",", "\"\<nm, g=\>\"", ",", 
      RowBox[{"ToString", "[", "g", "]"}], ",", 
      "\"\<, \!\(\*SubscriptBox[\(B\), \(P\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", "Bp", "]"}], ",", 
      "\"\<T,\\n\!\(\*SubscriptBox[\(\[Omega]\), \(z\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}]}], ",", "CForm"}], "]"}],
       ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\), \!\(\*SubscriptBox[\(\
\[Omega]\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{"my", ",", "ly", ",", "0"}], "]"}], ",", "CForm"}], "]"}], 
      ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\)\>\""}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"peakData0531D", ",", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "label"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener1", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener2", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"0602", "A"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"my", "=", 
     RowBox[{"1.4", "me"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ly", "=", 
     RowBox[{"1", " ", 
      RowBox[{"10", "^", 
       RowBox[{"-", "8"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{"g0602A", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", "0.18"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", "=", "0.00014"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Bp", "=", "Bp0602A"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"label", "=", 
    RowBox[{"StringJoin", "[", 
     RowBox[{"\"\<0602A: \!\(\*SubscriptBox[\(m\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"my", "/", "me"}], "]"}], ",", 
      "\"\<\!\(\*SubscriptBox[\(m\), \(e\)]\), \!\(\*SubscriptBox[\(l\), \
\(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"ly", "/", 
        RowBox[{"10", "^", 
         RowBox[{"-", "9"}]}]}], "]"}], ",", "\"\<nm, g=\>\"", ",", 
      RowBox[{"ToString", "[", "g", "]"}], ",", 
      "\"\<, \!\(\*SubscriptBox[\(B\), \(P\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", "Bp", "]"}], ",", 
      "\"\<T,\\n\!\(\*SubscriptBox[\(\[Omega]\), \(z\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}]}], ",", "CForm"}], "]"}],
       ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\), \!\(\*SubscriptBox[\(\
\[Omega]\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{"my", ",", "ly", ",", "0"}], "]"}], ",", "CForm"}], "]"}], 
      ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\)\>\""}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"peakData0602A", ",", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "label"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener1", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener2", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "\[IndentingNewLine]", 
    RowBox[{"0823", "F"}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"my", "=", 
     RowBox[{"1.4", "me"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ly", "=", 
     RowBox[{"1.2", " ", 
      RowBox[{"10", "^", 
       RowBox[{"-", "8"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g", "=", 
     RowBox[{"g0823F", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", "=", "0.0005"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Bp", "=", "Bp0823F"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"label", "=", 
    RowBox[{"StringJoin", "[", 
     RowBox[{"\"\<0823F: \!\(\*SubscriptBox[\(m\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"my", "/", "me"}], "]"}], ",", 
      "\"\<\!\(\*SubscriptBox[\(m\), \(e\)]\), \!\(\*SubscriptBox[\(l\), \
\(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{"ly", "/", 
        RowBox[{"10", "^", 
         RowBox[{"-", "9"}]}]}], "]"}], ",", "\"\<nm, g=\>\"", ",", 
      RowBox[{"ToString", "[", "g", "]"}], ",", 
      "\"\<, \!\(\*SubscriptBox[\(B\), \(P\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", "Bp", "]"}], ",", 
      "\"\<T,\\n\!\(\*SubscriptBox[\(\[Omega]\), \(z\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"x", " ", 
         RowBox[{"Omega", "[", 
          RowBox[{"my", ",", "ly", ",", "0"}], "]"}]}], ",", "CForm"}], "]"}],
       ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\), \!\(\*SubscriptBox[\(\
\[Omega]\), \(y\)]\)=\>\"", ",", 
      RowBox[{"ToString", "[", 
       RowBox[{
        RowBox[{"Omega", "[", 
         RowBox[{"my", ",", "ly", ",", "0"}], "]"}], ",", "CForm"}], "]"}], 
      ",", "\"\<\!\(\*SuperscriptBox[\(s\), \(-1\)]\)\>\""}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"peakData0823F", ",", 
       RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "label"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener1", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Ener2", "[", 
        RowBox[{
        "g", ",", "my", ",", "ly", ",", "Bp", ",", "B", ",", "x", ",", "y"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"B", ",", 
         RowBox[{"-", "9"}], ",", "9"}], "}"}]}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7040201999432883`*^9, 3.7040203640745792`*^9}, 
   3.704020468015823*^9, {3.7040206876271124`*^9, 3.7040207524610586`*^9}, {
   3.704020801926647*^9, 3.7040209136434994`*^9}, {3.704020965911563*^9, 
   3.7040209779339075`*^9}, {3.704022073421792*^9, 3.7040221052742434`*^9}, {
   3.704022294081007*^9, 3.704022578800906*^9}, {3.7040226912217636`*^9, 
   3.7040227823841243`*^9}, {3.704022833510023*^9, 3.70402287351337*^9}, {
   3.7040231327375107`*^9, 3.7040231774453683`*^9}, {3.704025152214374*^9, 
   3.7040252387624683`*^9}, {3.70402530013262*^9, 3.7040253546056585`*^9}, {
   3.704025463980567*^9, 3.7040254954451675`*^9}, {3.70402553181365*^9, 
   3.7040258343878903`*^9}, {3.7040258785564275`*^9, 3.70402594876571*^9}, {
   3.704026311146654*^9, 3.7040263926035385`*^9}, {3.704130656492326*^9, 
   3.704130744557413*^9}, {3.7041308283571863`*^9, 3.704130960786152*^9}, {
   3.704130998393126*^9, 3.704131008666442*^9}, {3.7041310512877493`*^9, 
   3.7041310719286118`*^9}, {3.704131102607168*^9, 3.7041311107518196`*^9}, {
   3.7041311708686333`*^9, 3.704131337704148*^9}, {3.7041313839410906`*^9, 
   3.704131417333835*^9}, {3.704131575597564*^9, 3.704131589880559*^9}, {
   3.7041316571774335`*^9, 3.7041317297914696`*^9}, {3.7041317824464474`*^9, 
   3.704131811165826*^9}, {3.7041318439710035`*^9, 3.7041318884171605`*^9}, {
   3.7041319920115533`*^9, 3.7041321328369255`*^9}, {3.704132239198702*^9, 
   3.7041322508707333`*^9}, {3.7041322848630695`*^9, 3.704132337984285*^9}, {
   3.7041323831754203`*^9, 3.7041324236530595`*^9}, {3.7041324966300645`*^9, 
   3.704132609056903*^9}, {3.7041326428216624`*^9, 3.704132733814557*^9}, {
   3.7041327638574233`*^9, 3.704133159988495*^9}, {3.7041331952021065`*^9, 
   3.7041332132561007`*^9}, {3.704133247336701*^9, 3.704133261460248*^9}, {
   3.7041333093244886`*^9, 3.7041334776850567`*^9}, {3.773493919205649*^9, 
   3.773493919221684*^9}, {3.7734939599338207`*^9, 3.7734939599558783`*^9}, {
   3.7734939908403096`*^9, 
   3.773494040410145*^9}},ExpressionUUID->"3ee7f56f-fd6e-4006-99b3-\
cbe66196e6fa"],

Cell[BoxData["\"\<0503B: \\!\\(\\*SubscriptBox[\\(m\\), \\(y\\)]\\)=1.2\\!\\(\
\\*SubscriptBox[\\(m\\), \\(e\\)]\\), \\!\\(\\*SubscriptBox[\\(l\\), \\(y\\)]\
\\)=11.nm, g=1.00919, \\!\\(\\*SubscriptBox[\\(B\\), \\(P\\)]\\)=2.76345T,\\n\
\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
\\(z\\)]\\)=1.593798038872341e11\\!\\(\\*SuperscriptBox[\\(s\\), \
\\(-1\\)]\\), \\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
\\(y\\)]\\)=7.968990194361705e11\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\)\
\>\""], "Input",
 CellChangeTimes->{{3.773493959957884*^9, 
  3.7734939599659057`*^9}},ExpressionUUID->"61344b2b-95cc-467f-b627-\
49c5c2fa1bbe"],

Cell[BoxData["\"\<0518E: \\!\\(\\*SubscriptBox[\\(m\\), \\(y\\)]\\)=1.4\\!\\(\
\\*SubscriptBox[\\(m\\), \\(e\\)]\\), \\!\\(\\*SubscriptBox[\\(l\\), \\(y\\)]\
\\)=9.nm, g=0.562847, \\!\\(\\*SubscriptBox[\\(B\\), \\(P\\)]\\)=1.45384T,\\n\
\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)=1.2244416679590681e11\\!\\(\
\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\), \
\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(y\\)]\\)=1.0203680566325568e12\\!\\(\
\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\)\>\""], "Input",
 CellChangeTimes->{{3.7734940175834365`*^9, 
  3.7734940175884495`*^9}},ExpressionUUID->"3b29bd37-1381-4b0e-969d-\
318acae49f2c"],

Cell[BoxData["\"\<0531D: \\!\\(\\*SubscriptBox[\\(m\\), \\(y\\)]\\)=1.4\\!\\(\
\\*SubscriptBox[\\(m\\), \\(e\\)]\\), \\!\\(\\*SubscriptBox[\\(l\\), \\(y\\)]\
\\)=10nm, g=0.620263, \\!\\(\\*SubscriptBox[\\(B\\), \\(P\\)]\\)=1.29575T,\\n\
\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)=1.5703464391575052e11\\!\\(\
\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\), \
\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
\\(y\\)]\\)=8.264981258723712e11\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\)\
\>\""], "Input",
 CellChangeTimes->{{3.7734939908634214`*^9, 
  3.773493990867382*^9}},ExpressionUUID->"b038c274-7622-47b5-9529-\
2d8d3295b13a"],

Cell[BoxData["\"\<0602A: \\!\\(\\*SubscriptBox[\\(m\\), \\(y\\)]\\)=1.4\\!\\(\
\\*SubscriptBox[\\(m\\), \\(e\\)]\\), \\!\\(\\*SubscriptBox[\\(l\\), \\(y\\)]\
\\)=10nm, g=0.663053, \\!\\(\\*SubscriptBox[\\(B\\), \\(P\\)]\\)=1.54924T,\\n\
\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \\(z\\)]\\)=1.4876966265702682e11\\!\\(\
\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\), \
\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
\\(y\\)]\\)=8.264981258723712e11\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\)\
\>\""], "Input",
 CellChangeTimes->{{3.7734939192266984`*^9, 
  3.7734939192327137`*^9}},ExpressionUUID->"a6e52574-d01e-4d17-89fa-\
b12fa9bca1d8"],

Cell[BoxData["\"\<0823F: \\!\\(\\*SubscriptBox[\\(m\\), \\(y\\)]\\)=1.4\\!\\(\
\\*SubscriptBox[\\(m\\), \\(e\\)]\\), \\!\\(\\*SubscriptBox[\\(l\\), \\(y\\)]\
\\)=12.nm, g=0.709959, \\!\\(\\*SubscriptBox[\\(B\\), \
\\(P\\)]\\)=1.03117T,\\n\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
\\(z\\)]\\)=1.72187109556744e11\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\), \
\\!\\(\\*SubscriptBox[\\(\[Omega]\\), \
\\(y\\)]\\)=5.739570318558134e11\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\)\
\>\""], "Input",
 CellChangeTimes->{{3.773494040413152*^9, 
  3.773494040418206*^9}},ExpressionUUID->"57e149b2-fff6-417e-ae2f-\
816e4663af43"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"hbar", "=", 
   RowBox[{"1.054", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "34"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"jtoev", "=", 
   RowBox[{"6.242", " ", 
    RowBox[{"10", "^", "18"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"me", "=", 
   RowBox[{"9.109", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "31"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "=", 
   RowBox[{"1.602", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "19"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Omega", "[", 
    RowBox[{"my_", ",", "ly_", ",", "B_"}], "]"}], ":=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"hbar", "/", 
        RowBox[{"(", 
         RowBox[{"my", " ", 
          RowBox[{"ly", "^", "2"}]}], ")"}]}], ")"}], "^", "2"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"q", " ", 
        RowBox[{"B", "/", "my"}]}], ")"}], "^", "2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nm", "=", 
   RowBox[{"10", "^", 
    RowBox[{"-", "9"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1.2", "me"}], ",", 
     RowBox[{"1.4", "me"}], ",", 
     RowBox[{"1.4", "me"}], ",", 
     RowBox[{"1.4", "me"}], ",", 
     RowBox[{"1.4", "me"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"11", "nm"}], ",", 
     RowBox[{"9", "nm"}], ",", 
     RowBox[{"10", "nm"}], ",", 
     RowBox[{"10", "nm"}], ",", 
     RowBox[{"12", "nm"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"{", 
    RowBox[{"1.00", ",", "0.56", ",", "0.62", ",", "0.66", ",", "0.70"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"{", 
    RowBox[{"2.76", ",", "1.45", ",", "1.29", ",", "1.54", ",", "1.03"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"{", 
    RowBox[{"0.20", ",", "0.12", ",", "0.19", ",", "0.18", ",", "0.30"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ener1", "[", 
    RowBox[{"my_", ",", "ly_", ",", "g_", ",", "Bp_", ",", "x_", ",", "B_"}], 
    "]"}], ":=", 
   RowBox[{
    RowBox[{"jtoev", " ", "hbar", " ", 
     RowBox[{
      RowBox[{"Omega", "[", 
       RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "+", 
    RowBox[{
     RowBox[{"g", "/", "2"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Abs", "[", "B", "]"}], "-", "Bp"}], ")"}], " ", "5.788", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "5"}]}]}], "+", 
    RowBox[{"1.5", " ", "jtoev", " ", "hbar", " ", 
     RowBox[{"Omega", "[", 
      RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ener2", "[", 
    RowBox[{"my_", ",", "ly_", ",", "g_", ",", "Bp_", ",", "x_", ",", "B_"}], 
    "]"}], ":=", 
   RowBox[{
    RowBox[{"jtoev", " ", "hbar", " ", 
     RowBox[{
      RowBox[{"Omega", "[", 
       RowBox[{"my", ",", "ly", ",", "B"}], "]"}], "/", "2"}]}], "-", 
    RowBox[{
     RowBox[{"g", "/", "2"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Abs", "[", "B", "]"}], "-", "Bp"}], ")"}], " ", "5.788", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "5"}]}]}], "+", 
    RowBox[{"3.5", " ", "jtoev", " ", "hbar", " ", 
     RowBox[{"Omega", "[", 
      RowBox[{"my", ",", "ly", ",", "0"}], "]"}], "x"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"eqns", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Ener1", "[", 
        RowBox[{
         RowBox[{"m", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"l", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"g", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"B", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"x", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", "y"}], "]"}], "\[Equal]", 
       RowBox[{"Ener2", "[", 
        RowBox[{
         RowBox[{"m", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"l", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"g", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"B", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", 
         RowBox[{"x", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", "y"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ")"}], "//", 
  "TableForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"fields", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"eqns", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", "y"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ")"}], "//", 
  "TableForm"}]}], "Input",
 CellChangeTimes->{{3.704149710573448*^9, 3.7041499536997423`*^9}, {
  3.7041499868157783`*^9, 3.704150090933169*^9}, {3.7041502630304995`*^9, 
  3.7041502768937235`*^9}, {3.7041503421360903`*^9, 
  3.7041504920746813`*^9}},ExpressionUUID->"912d1f59-47fe-4d63-9687-\
d4a73bc80878"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"0.00015728558514011665`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"6.350480471783301`*^23", "+", 
           RowBox[{"2.1479349628107663`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "+", 
        RowBox[{"0.000028940000000000004`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.76`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}], "\[Equal]", 
       RowBox[{"0.0003669996986602721`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"6.350480471783301`*^23", "+", 
           RowBox[{"2.1479349628107663`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "-", 
        RowBox[{"0.000028940000000000004`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2.76`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}]}]},
     {
      RowBox[{
       RowBox[{"0.000120835274933042`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"1.0411509709961011`*^24", "+", 
           RowBox[{"1.5780746665548487`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "+", 
        RowBox[{"0.000016206400000000005`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.45`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}], "\[Equal]", 
       RowBox[{"0.0002819489748437646`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"1.0411509709961011`*^24", "+", 
           RowBox[{"1.5780746665548487`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "-", 
        RowBox[{"0.000016206400000000005`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.45`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}]}]},
     {
      RowBox[{
       RowBox[{"0.00015497124010162636`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"6.830991520705419`*^23", "+", 
           RowBox[{"1.5780746665548487`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "+", 
        RowBox[{"0.000017942800000000004`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.29`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}], "\[Equal]", 
       RowBox[{"0.00036159956023712816`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"6.830991520705419`*^23", "+", 
           RowBox[{"1.5780746665548487`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "-", 
        RowBox[{"0.000017942800000000004`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.29`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}]}]},
     {
      RowBox[{
       RowBox[{"0.00014681485904364605`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"6.830991520705419`*^23", "+", 
           RowBox[{"1.5780746665548487`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "+", 
        RowBox[{"0.000019100400000000004`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.54`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}], "\[Equal]", 
       RowBox[{"0.0003425680044351741`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"6.830991520705419`*^23", "+", 
           RowBox[{"1.5780746665548487`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "-", 
        RowBox[{"0.000019100400000000004`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.54`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}]}]},
     {
      RowBox[{
       RowBox[{"0.0001699246053745903`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"3.294266744167351`*^23", "+", 
           RowBox[{"1.5780746665548487`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "+", 
        RowBox[{"0.000020258`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.03`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}], "\[Equal]", 
       RowBox[{"0.000396490745874044`", "\[VeryThinSpace]", "+", 
        RowBox[{"3.2895340000000003`*^-16", " ", 
         SqrtBox[
          RowBox[{"3.294266744167351`*^23", "+", 
           RowBox[{"1.5780746665548487`*^22", " ", 
            SuperscriptBox["y", "2"]}]}]]}], "-", 
        RowBox[{"0.000020258`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1.03`"}], "+", 
           RowBox[{"Abs", "[", "y", "]"}]}], ")"}]}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7041504934192543`*^9},ExpressionUUID->"bff748c9-f197-49e0-a7f3-\
0b4c90deb7b5"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], ":", 
  " ", "\<\"Inverse functions are being used by \[NoBreak]\\!\\(Solve\\)\
\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.7041504935927496`*^9},ExpressionUUID->"9e52b5d0-52ec-4913-8c9e-\
3b495e08d25b"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], ":", 
  " ", "\<\"Inverse functions are being used by \[NoBreak]\\!\\(Solve\\)\
\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.7041504936227956`*^9},ExpressionUUID->"e4505353-e906-4096-a21a-\
370d9b96a533"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], ":", 
  " ", "\<\"Inverse functions are being used by \[NoBreak]\\!\\(Solve\\)\
\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.7041504936408434`*^9},ExpressionUUID->"30e6608d-473b-4be7-8f2b-\
1b5a27a2efda"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], ":", 
  " ", "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Solve :: \
ifun\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.7041504936558924`*^9},ExpressionUUID->"a9162b2d-0063-4285-b639-\
791ba1cdafda"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", 
          RowBox[{"-", "6.3832569716682`"}]}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column], 
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", "6.3832569716682`"}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", 
          RowBox[{"-", "6.420681333014197`"}]}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column], 
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", "6.420681333014197`"}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", 
          RowBox[{"-", "7.047973118339995`"}]}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column], 
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", "7.047973118339995`"}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", 
          RowBox[{"-", "6.664320574216456`"}]}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column], 
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", "6.664320574216456`"}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column]},
    {
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", 
          RowBox[{"-", "6.6220164996409725`"}]}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column], 
     TagBox[GridBox[{
        {
         RowBox[{"y", "\[Rule]", "6.6220164996409725`"}]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {{
            Offset[0.2]}}, "RowsIndexed" -> {}}],
      Column]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7041504936649075`*^9},ExpressionUUID->"82be7b9f-fa6d-4d5f-badf-\
6d40662ce256"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"ratios", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Omega", "[", 
           RowBox[{
            RowBox[{"m", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"l", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", "0"}], "]"}], 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "/", 
           RowBox[{"Omega", "[", 
            RowBox[{
             RowBox[{"m", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"l", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "y"}], "]"}]}]}], "/.", 
         RowBox[{"fields", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ")"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.704150570605446*^9, 3.7041506785434237`*^9}, {
  3.7041507108382645`*^9, 3.704150738981081*^9}, {3.70415080187425*^9, 
  3.704150809922676*^9}, {3.704196473513324*^9, 
  3.7041964820630608`*^9}},ExpressionUUID->"4b346034-9780-4448-a2c3-\
f7b2b3d4aa6a"],

Cell[BoxData[
 TagBox[GridBox[{
    {"0.2`", "0.1296909252486312`"},
    {"0.12`", "0.09414007751438379`"},
    {"0.19`", "0.12965276467847933`"},
    {"0.18`", "0.12645928096607675`"},
    {"0.3`", "0.17037127386293674`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.7041506789715257`*^9, {3.7041507333320694`*^9, 3.7041507395796785`*^9}, 
   3.704150810354821*^9, 
   3.704196482550329*^9},ExpressionUUID->"146c762a-6104-4c1a-9770-\
f77521135b13"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{"0.25", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.5", ",", "5.5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5", ",", "5.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*FractionBox[SubscriptBox[\(\[Omega]\), \(z\)], \(\
\[CapitalOmega] \((B)\)\)]\)\>\"", ",", "\"\<Sample\>\""}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.5", ",", "0"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"ratios", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "2"}], "]"}], "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7041964859333544`*^9, 3.704196641206338*^9}, {
  3.7041972054438324`*^9, 3.704197378255232*^9}, {3.7041974096396165`*^9, 
  3.704197428938923*^9}},ExpressionUUID->"3c53ca20-adf0-471f-96e7-\
4098bcc2d77e"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQzZt0woyB4YE9AxhcsJd7lnXx38SHcL5BFm/OX+XH
cL7zvzSj2d3P4HzLh/ZuZTtfwvnil05mRF1/A+cXq5v05ct8gPN9eA/3BWz4
iLDP8s51xrTPcP7j174rtgt/hfMl3erle5Z8g/Pdn1ndNwj/Aec/193m+uXN
Tzi/+k+n8Z6q33A+u+CLzBCtv3A+61lWd+69/+D8uudhZictGBxg/C/a13n4
+RnhfCWX7WZPriH4PvV3WhauZ4Lz9fsS1d5VMsP5fAe03yiFssD56aaLvkbq
sML5lXUVQQpfEfz2V5MvnzvHBuf7afGv4JnFDuf3rzU74JPIAeefCV78p8SS
E84/dDa/R4eZC87fktXocOYugq/gbW+Rt4Ubznf9H9M8v4YHzk+7tv/TjlBe
ON+hsWlrogIfnD8l/+NunucI/pOGpc/m7+OH879tijF66CwA5/8w62x+tgHB
v7YktW6zmCCcX2giMbuxCsHvCn178vAzBL8hoWjRWW8hRHz8kez13ongq+6e
PvOUijCcb5R81F+wE8HfO0dU4sxXBF/1gGiXX7QInO/F+kb20j4E/+3tJ4dP
aonC+TlzeoU7+xF8UY+otiPHEfx9n9V+/v+P4AMAnFryWg==
      "]]}}, {{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{1., 0.1296909252486312}, {2., 0.09414007751438379}, {3., 
       0.12965276467847933`}, {4., 0.12645928096607675`}, {5., 
       0.17037127386293674`}}]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, 0.},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Sample\"", TraditionalForm], None}, {
     FormBox[
     "\"\\!\\(\\*FractionBox[SubscriptBox[\\(\[Omega]\\), \\(z\\)], \\(\
\[CapitalOmega] \\((B)\\)\\)]\\)\"", TraditionalForm], None}},
  FrameStyle->Directive[
    GrayLevel[0], 18],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->Large,
  LabelStyle->Directive[
    GrayLevel[0], 18],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0.5, 5.5}, {0, 0.3}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7041973582971754`*^9, {3.7041974210349436`*^9, 
   3.704197430058934*^9}},ExpressionUUID->"ee926ec7-70bf-44c3-846c-\
2354f1ace482"]
}, Open  ]]
},
WindowSize->{1838, 1026},
WindowMargins->{{Automatic, -5}, {Automatic, 2}},
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 176, 3, 34, "Text",ExpressionUUID->"b9e7258f-19a2-44f9-a0cf-28a9088947ab"],
Cell[737, 25, 1174, 29, 124, "Input",ExpressionUUID->"e1972ab0-66cb-4226-8342-c209f96966c5"],
Cell[1914, 56, 173, 3, 34, "Text",ExpressionUUID->"a732a64e-3397-4fea-bde0-83618680f2c9"],
Cell[2090, 61, 1637, 47, 105, "Input",ExpressionUUID->"d047c9c0-a61a-4698-92aa-4454449dfbc2"],
Cell[3730, 110, 190, 3, 34, "Text",ExpressionUUID->"0eaf5b03-1ffb-48cb-b38a-5921bfcaf7e7"],
Cell[3923, 115, 2897, 86, 105, "Input",ExpressionUUID->"de6cc09c-5367-4b47-895b-fe5d748ea42b"],
Cell[6823, 203, 215, 5, 34, "Text",ExpressionUUID->"ee96482a-5048-4e1b-8e9b-705b606b95c1"],
Cell[7041, 210, 2816, 79, 105, "Input",ExpressionUUID->"5de48559-d2db-43f5-a481-010ca6fa4e27"],
Cell[9860, 291, 257, 6, 34, "Text",ExpressionUUID->"a0b11e9c-2b9f-41b9-8743-9c1b44702a6e"],
Cell[10120, 299, 7121, 191, 200, "Input",ExpressionUUID->"17a7e611-d4aa-42f1-92d9-3b7d47e87131"],
Cell[17244, 492, 336, 9, 36, "Text",ExpressionUUID->"2753b9a5-49dd-4dc7-930e-9da84fce916d"],
Cell[17583, 503, 2072, 47, 105, "Input",ExpressionUUID->"86dae709-7532-4e4a-962d-a54fa9b04070"],
Cell[19658, 552, 610, 13, 36, "Text",ExpressionUUID->"49973259-4ba6-477a-b9d2-fe90a70a1ede"],
Cell[CellGroupData[{
Cell[20293, 569, 21740, 641, 1055, "Input",ExpressionUUID->"978969ba-7e4f-400a-8d0e-eb68e710c85e"],
Cell[42036, 1212, 1481, 23, 32, "Output",ExpressionUUID->"d4db747d-ccc9-4792-a8ca-d294390f15d2"],
Cell[43520, 1237, 1370, 19, 32, "Output",ExpressionUUID->"224b7dde-2048-45ea-b912-78dac116142d"],
Cell[44893, 1258, 7184, 129, 397, "Output",ExpressionUUID->"a3595f15-d772-47ad-ac9a-9cef129bd090"],
Cell[52080, 1389, 1484, 23, 32, "Output",ExpressionUUID->"860477cd-7f14-4efd-bc92-a25d3a469fe1"],
Cell[53567, 1414, 1368, 19, 32, "Output",ExpressionUUID->"4a18057a-3ed3-46f6-934c-a0c2165ea459"],
Cell[54938, 1435, 9760, 171, 397, "Output",ExpressionUUID->"1087b1d2-84fa-4da0-a3f5-364477e7ffe9"],
Cell[64701, 1608, 1482, 23, 32, "Output",ExpressionUUID->"126c35ab-d544-4759-b329-127c013ab0dd"],
Cell[66186, 1633, 1368, 19, 32, "Output",ExpressionUUID->"ee4c255b-9afa-488c-b705-7d6bdd207ba2"],
Cell[67557, 1654, 12647, 219, 397, "Output",ExpressionUUID->"1fcf1020-96a1-495b-b22d-ed8368c00fe8"],
Cell[80207, 1875, 1484, 23, 32, "Output",ExpressionUUID->"c6e23c44-3234-48b5-9f61-b5a1b6809ac8"],
Cell[81694, 1900, 1370, 19, 32, "Output",ExpressionUUID->"3d936b30-58ab-46a4-af33-9c4f50b19bd0"],
Cell[83067, 1921, 10688, 187, 397, "Output",ExpressionUUID->"dacd5a65-2518-4346-974b-9196f94b7bd4"],
Cell[93758, 2110, 1484, 23, 32, "Output",ExpressionUUID->"1f8d36df-ce9e-44d2-9baa-33ec4ec43dbf"],
Cell[95245, 2135, 1367, 19, 32, "Output",ExpressionUUID->"23b9f38a-e2ee-416b-8107-6e937b19b813"],
Cell[96615, 2156, 12633, 219, 397, "Output",ExpressionUUID->"963bc187-132d-4e62-a0f6-3fb9dca25f33"]
}, Open  ]],
Cell[109263, 2378, 198, 3, 34, "Text",ExpressionUUID->"6f9d19b9-edc7-4109-b7ed-7018cc5099b9"],
Cell[109464, 2383, 5591, 159, 200, "Input",ExpressionUUID->"5449867f-d1b1-4cbc-bfad-7f19fe49da14"],
Cell[115058, 2544, 491, 14, 36, "Text",ExpressionUUID->"e8da34e8-5696-4dea-808d-ab0490ebbab9"],
Cell[115552, 2560, 6374, 175, 219, "Input",ExpressionUUID->"3fdedb76-0a46-4513-9cb0-95c0074acc0f"],
Cell[121929, 2737, 769, 18, 58, "Text",ExpressionUUID->"fcc48623-f424-460f-baf2-56922b509f17"],
Cell[122701, 2757, 16432, 400, 1156, "Input",ExpressionUUID->"3ee7f56f-fd6e-4006-99b3-cbe66196e6fa"],
Cell[139136, 3159, 621, 10, 48, InheritFromParent,ExpressionUUID->"61344b2b-95cc-467f-b627-49c5c2fa1bbe"],
Cell[139760, 3171, 623, 9, 48, InheritFromParent,ExpressionUUID->"3b29bd37-1381-4b0e-969d-318acae49f2c"],
Cell[140386, 3182, 622, 10, 48, InheritFromParent,ExpressionUUID->"b038c274-7622-47b5-9529-2d8d3295b13a"],
Cell[141011, 3194, 624, 10, 48, InheritFromParent,ExpressionUUID->"a6e52574-d01e-4d17-89fa-b12fa9bca1d8"],
Cell[141638, 3206, 619, 10, 48, InheritFromParent,ExpressionUUID->"57e149b2-fff6-417e-ae2f-816e4663af43"],
Cell[CellGroupData[{
Cell[142282, 3220, 5397, 165, 295, "Input",ExpressionUUID->"912d1f59-47fe-4d63-9687-d4a73bc80878"],
Cell[147682, 3387, 5578, 139, 159, "Output",ExpressionUUID->"bff748c9-f197-49e0-a7f3-0b4c90deb7b5"],
Cell[153263, 3528, 580, 12, 21, "Message",ExpressionUUID->"9e52b5d0-52ec-4913-8c9e-3b495e08d25b"],
Cell[153846, 3542, 580, 12, 21, "Message",ExpressionUUID->"e4505353-e906-4096-a21a-370d9b96a533"],
Cell[154429, 3556, 580, 12, 21, "Message",ExpressionUUID->"30e6608d-473b-4be7-8f2b-1b5a27a2efda"],
Cell[155012, 3570, 577, 12, 21, "Message",ExpressionUUID->"a9162b2d-0063-4285-b639-791ba1cdafda"],
Cell[155592, 3584, 5834, 157, 99, "Output",ExpressionUUID->"82be7b9f-fa6d-4d5f-badf-6d40662ce256"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161463, 3746, 1349, 37, 28, "Input",ExpressionUUID->"4b346034-9780-4448-a2c3-f7b2b3d4aa6a"],
Cell[162815, 3785, 900, 24, 99, "Output",ExpressionUUID->"146c762a-6104-4c1a-9770-f77521135b13"]
}, Open  ]],
Cell[CellGroupData[{
Cell[163752, 3814, 1471, 37, 85, "Input",ExpressionUUID->"3c53ca20-adf0-471f-96e7-4098bcc2d77e"],
Cell[165226, 3853, 2249, 51, 425, "Output",ExpressionUUID->"ee926ec7-70bf-44c3-846c-2354f1ace482"]
}, Open  ]]
}
]
*)

